7USER ■ SITE 



PACKET 221 

INPUT 8 CARDS FROM CRA 

TIME 1346 

DATE 78109 WEDNESDAY. 04/19/78 



*** BURROUGHS B5700 DCMcP MARK XVl,0,i7| AND INTRINSICS MARK XVI, 0,132 *** 

#N0 MESSAGES TODAY 

13146130 ?USER* SfTE 

13146130 ?cOMPjLE PASCAL/JUNK XaLgQL xYNTAX 

13*46*30 7XALG0L FILE TAPE* ELPASO/U819005 DISK SERIAL 

13146131 7XALG0L STACK* 1000 
13146131 ?DATA0?9 CARD 

13146131 5IXALG0U/PASCAL» 2 BOJ 1346 04/17/78 

13146133 CDA JN CARD DA » XAIGOL/MSC AL» 2 

13146134 #N0 FIL ON DISK ELPASO U819005I XALGQL/PASCAL* 2 
13146149 iU OK DS 

13146149 #N0 FIL ON DISK ELPASO U819005 » XALGOL/PASCAL* 2 

13*47*42 +OPERATOR KEYED I N I 2oK 

13147143 OKA IN SeR ELPaSO U8i9005 * XALGOL/PaSCAL* 2 

13*47*44 PBD0222 OUT Oil LlNE I XaLGOUPASCAL« 2 

13147148 KA OUT SeR DSK2 S JTe* X ALGOL/PASC AL* 2 

13147155 OKA OUT RDM PASCAL Ju'NK IXALGOL/PASCAL* 2 

13*47*58 DKA OUT S£R DSK1 S I Te * XALGOL/PASCAL» 2 

13*54*18 +OPERATOR KEYEO INI 2TL 

13154118 TIME LIMITS FOR XALGoL/PAScAL* 2 ARE! PRT.NO LIMlTl I0T*NO LIMIT, 

13154*27 +OPERATOR KEYED INI 2TI 

13154*27 TIME FOR XALGOL/PaSCaL* 2 iSl CP« 5*47# 10* H55 IN 7157 

13154128 DKA LOK PASCAL JUNK I XALGOL/PASCAL* 2 

13*54129 CDA REL CARD DA * XaLGoL/PAScAL* 2 

13*54*29 ?END 

13*54*29 DKA REL ELPASO U819005 l XALGOL/PASCAL* 2 

13*54*33 DKA OUT SER DSRTl SI TE « XALgOL/PASC AL* 2 

13*54*45 DKA OUT SeR DSRT2 S I TE * XALgOL/PASCAL* 2 

13*54*55 OKA REL DSRTl SI Te» XaLgOL/PASCAL. 2 

13*54*55 OKA REL 0SRT2 S He JXaLgOL/PASCAL* 2 

13*54*55 DKA OUT SER DSRTl SI TE »XALGOL/PASCAL« 2 

13*57*30 DKA OUT SER DSRT2 S ITE * XALGOL/PASCAL* 2 

14100*22 DKA REL DSRTl SITE JXaLsQL/PASCAL* 2 

14*00*23 OKA REL DSRT2 S ITeIXaL&QL/PASCAL* 2 

14*00*25 OKA REL DSK2 SiTE*XALGOL/PaSCAL* 2 

14*00*26 DKA REL DSK1 Si TE *XALG0L/PASCAL» 2 

14*00*27 PBD0222 ReL Oil LjNe 6210 * XALGOL/PASC AL* 2 

14*00*29 XALGOL/PASCAL* 2 EOJ 1«00 

14*00*29 FOR XALGOL/PASCAU 2* PROCESS. 6l3 SECS, iO« 203 SECS. OLAY* 13 

14100131 5«PASCAL/JUNK«0l SCHEDULED 1400# NEEDS 27264 

14*01*04 1ES 

14*01*05 -OPRTR ES«ED PASCAL/JUNK* 2. S» 1. A* 0*0 



Hiono8 

HI01I09 



PASCAL/JUNK« 2 DS-ED 1*01 
FOR PASCAL/JUNK* 21 PROCESS* 
PKT#0221 REMOVED 



SECS» IOs 8 SECS* OLAY« 



LABEL OOOOOOOOOLlNe 00l78l09?C0MP I LE PASCAL/JUNK XALGOL XYNTAX 



XALGOL /PASCAL 



BURROUGHS B"5700 XALGOL COMPILER MARK XVI. 0,120 WEDNESDAY. 04/19/78. H46 PM, 



PASCAL /JUNK 



SOURCE FILE! ELPASO /U819005 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

X X 

x X 

X * * X 

% * pascal compiler* X 

% *********************************** <j 

X I! 

x X 

X WRITTEN 1975 BY % 

% DAG F. LANGMYHRt X 

% HERIOT-WATT UNIVERSITY. X 

X EDINBURGH. X 

X % 

x X 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
x X 

x X 

X PART It DECLARATIONS, % 

X % 

x % 

x X 

xxxxxxxxxxxxxxxxxxmxxxxxxxxmxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 
X 

BEGINX 
PRT(22) « *LIST, LABEL* OR SEGMENT DESCRIPTOR* 
PRTC23) * *OUTER BLOCK DESCRIPTOR* 
PRT(24> « *SEGMENT DESCRIPTOR* 

DEFINE EDITI0N« W 2,3 W #IX 

INTEGER NUMERRS. X PR*2ll NUMBER OF ERRORS IN PROGRAM, 
PRTC25) m NUMERRS 

SAVEFACTOR. X PR+221 SAVEFACTOR FOR CODE FILE, 
PRT(26) * SAVEFACTOR 

X >0 COMPILE TO LIBRARY, 

X -0 COMPILE AND RUN, 

X <0 COMPILE FOR SYNTAX, 

CARDCNTj X PR+231 NUMBER OF CARDS READ, 
PRT(27) ■ CARDC^T 

FILE CARD "SOURCE" (2.10.150)1 % SOURCE CODE INPUT FILE 

PRT(30) * CARD 

FILE LINES 1 (2.17)1 % PRINT FILE, 

PRT(3l) m LINES 

FILE PASCALGOL DISK SERIAL [20»600] ( 2 » 10. 150, SAVE 0)1 X CODE FILE 



00000001 


T 


0000 


00000002 


T 


0000 


00000003 


T 


0000 


00000004 


T 


0000 


00000005 


T 


0000 


00000006 


T 


0000 


00000007 


T 


0000 


00000008 


T 


0000 


00000009 


T 


0000 


ooooooto 


T 


0000 


00000011 


T 


0000 


00000012 


T 


0000 


00000013 


T 


0000 


00000014 


T 


0000 


00000015 


T 


0000 


00000016 


T 


0000 


00000017 


T 


0000 


00000018 


T 


0000 


00000019 


T 


0000 


00000020 


T 


0000 


00000021 


T 


0000 


00000022 


T 


0000 


00000023 


T 


0000 


00000024 


T 


0000 


00000025 


T 


0000 



START OF SEGMENT ********** 

00000026 T 0000 

00000027 T 0000 

00000028 T 0000 

00000029 T 0000 

00000030 T 0000 

00000031 T 0000 

00000032 T 0000 

00000033 T 0000 

00000034 T 0003 

00000035 T 0007 



PRTC32) 
PRTC33) 
PRT(34) 



» PASCAUGOU 

s 

* FILE ATTRB 
DEFI 

X 

%*** 

DEFI 



UTS 

NE LINESPERPAGE«52#*X 

MAXlNT«5497558l3887#lX 



COMPILER CONSTANTS **» 
NE MAXTABLES «50l. 
MAXNAMES .997*, 
MAXLEVEL b15#. 
MAXCASES *211#» 
MAXLABS alOO#, 
MAXPARAMS «200#i 
MAX7YPES «1022#» 
MAXCONSTS «200#, 
MAXTEMPS «5*» 
MAXWITHSYMS*250#» 
MAXSYMS «800#» 
UISTLENGTH »800#» 
MAXEXTFIuES«20#» 
MAXFILES «20## 
MAXpNTRS «50#l 



XM A X NUMBER OF 
XMAX NAMES IN 
XMAX DEPTH OF 
*M A X LABELS IN 
XMAX NUMBER OF 
*MAX NUMBER OF 
|MAX NUMBER OF 
ISjZE OF CONST 
XNUMBER OF EXT 
XMAX NUMBER OF 
(MAX NUMBER OF 
XMAX LENGTH OF 
XMAX NUMBER OF 
XMAX NUMBER OF 
XMAX NUMBER OF 



NAME TABLES, 
EACH TABLE, 
PROCEDURE DECLARATIONS, 

A CASE-STATEMENT, 

LABELS, 

PARAMETERS IN WHOLE PROGRAM, 

DIFFERENT TYPES, 

ant table, 

RA "*"' "'■ 
S' 



PRT(35) 
PRTC36) 
PRT(37) 



X 

X*** 
ARRA 

* nametabi 

• NAMETIB2 
» NAMETAB3 

DEFI 



IT TABLE, 

i VARS IN EACH PROCEDURE, 

iYMBOLS USED BY W I TH"STATMS , 

SYMBOLS IN ONE EXPRESSION, 
VAR AND PARAM LISTS, 
EXTERNAL FILES, 
FILES DECLARED AT ONE TIME, 
UNDECLARED POINTERS, 



PRT<40) 



X 

ARRA 
DISPLAY 

DEFI 



PRT(«i) 

PRT(«2> 
PRT(«3) 



X 

X*** 

ARRA 

* TYPETABl 
« TYPETAB2 

* TYPETAB3 

DEFI 



NAME TABLES *** 
Y NAMETABl»NAMETAB2»NAMETABJt0lMAXTABLES»0« MAXNAMES] IX 



NE NAMELENGTH *[41l6}#,X 
TYPE pf9U0J#,I 
IDCLASS «C12I 31#»* 

VAR »0#»X 

CONST*l##X 

TUNC «2*»X 

PROC «3#»X 

TYPES««#tX 
INFO *[23*1U#»X 

FORMAL «C24|1J#»X 

FORWARDDEF *[25lU#»X 
FXTFRNALFlLE*[26tU*lX 

DISPLAY VECTOR *** 

Y DlSPLAYCO»MAXLEVEL3»X 

NE RECTYPE »£9llOJ#,X 
FIRSTWITHSYM ■ti»»lO]#»| 
LASTWJTHSYM *[2VllOJ##i 
NUMPNTRSlNWlTH«t35l6]#,X 

BRACKETSiNHiTH"[36»ll*t* 
NAMETAB s[46I7]#|X 

TYPE TABLES *** 

Y TyPETAB1»TYPETAB2»TypETaBb[0ImAXTYPESJ!X 



NE FORM *[3I4)#«8 

NUMERIC «0**X 



00000036 
00000037 
00000036 
00000039 
00000040 
00000041 
00000042 
00000043 
00000044 
00000045 
00000046 
00000047 
00000043 
00000049 
00000050 
00000051 
00000052 
00000053 
00000054 
00000055 
00000056 
00000057 



00000058 
00000059 
00000060 
00000061 
00000062 
00000063 
00000064 
00000065 
00000066 
00000067 
00000066 
00000069 
00000070 
00000071 
00000072 

00000073 
00000074 
00000075 
00000076 
00000077 
00000078 
00000079 
00000080 
00000081 



00000082 T 

00000083 T 



0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 



0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 
0015 

0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 
0017 



0019 
0019 



SYMB0LIC«1#»X 00000084 T 0019 

SUBTYPE »2#iX 00000085 T 0019 

MAINTYPEk[33U0]#»X 00000086 T 0019 

CHAR <*3#»X 00000087 T 0019 

FL0ATlNG*4##X 00000088 T 0019 

ALFA s5#»X 00000089 T 0019 

SET *6#»X 00000090 T 0019 

SETTYPE »t33U03##X 00000091 T 0019 

P0INTERS*7##X 00000092 T 0019 

P0INTTYPE«[33«10]#»* 00000093 T 0019 

ARRAYS *8##X 00000094 T 0019 

INXTYPE »£33ll03#tX 00000095 T 0019 

arrtype «i43i103#«x 00000096 t 0019 

Record »9##x 00000097 t 0019 

rectab «[33i10]##x 00000098 t 0019 

FILES «10##X 00000099 T 0019 

FILETYPE*C33»103».X OOOOOlOO T 0019 

TEXTFILE»11*»X 00000101 T 0019 

SIZE *tl5lt2l#»X 00000102 T 0019 

STRUCT*£23I8]#)X 00000103 T 0019 

INTEGER NUMTYPESIX 00000104 T 0019 

PRT(44) * NUMTYPES 

X 00000105 T 0019 

%+** PARAMETER TABLE *** 00000106 T 0019 

ARRAY PARAMTABtOlMAXPARAMSJfX 00000107 T 0019 
PRT(45) » PARAMfAB 

DEFINE PARAMNAME ■[9liQj* t % 00000108 T 0021 

PARAMKIND «[13»4]#»X 00000109 T 0021 

PARAMLEVEL«[23U0J#»X OOOOOllO T 0021 

PARAMTYPE »[33I10J#,X 00000m T 0021 

PARAMFILE *t34*13*IX 00000112 T 0021 

INTEGER NUMPARAMSJX OOOOOlH T 0021 
PRT(46) ■ NUMPARAMS 

X 00000H4 T 0021 

X*** CONSTANT TABLE *** 00000115 T 0021 

ARRAY CONSTTABtO!MAXCONSTS];X 00000H6 T 0021 
PRT(47) « CONSTTAB 

INTEGER NUMCONSTSJX 00000117 T 0023 
PRT(50) m NUMCONSTS 

X OOO0OH8 T 0023 

%*** LABEL TABLE *** 00O00U9 T 0023 

ARRAY LABTAB[0»MAXLABS3?X 00000120 T 0023 

PRT(5l) m LABTAB 

DEFINE LABVAL»C14U51##X 00000121 T 0025 

LABDEF*tl5in#U 00000122 T 0025 

INTEGER NUMLABS.FIRSTLABIX 00000123 T 0025 

PRT(52> s NUMLABS 

PRT(53) « FJRSTLAB 

X 00000124 T 0025 

X*** TABLES FOR I/O AND CHARACTER HANDLING *** 00000125 T 0025 

ARRAY ChCOIOJ, TEXT[0I1J» STRiNqCOI n JlX 00000126 T 0025 

PRTC54) « CH 

PRT(55) « TEXT 

PRT(56) ■ STRING 

POlNTfR CHARPNT#TEXTPNT,TEXTPNTO,STRlNGPNTJX 00000127 T 0030 

PRT(57) « CHARPNT 

PRT(60) » TeXTPNT 



PRT(6l) b TEXTPNTO 
PRT{62> * STRIN4PNT 

ARRAY lcARD[0!93t LINECOI 163* XLlNE[OllQ3> ALGOLC ARDt I 9 3 1% 
PRT(63> * ICARD 
PRTC64) m LINE 
PRT(65) • XUINE 
PRT(66) « ALGOUCARO 

POINTfR CARDPNTiLINePNT»XLINEPNT#aUGOLPNTU 
PRT(67) * CAROPNT 
PRT(70) * LjNEPNT 
PRT(7D - XUJNEPNT 
PRT(72) * AUGOLPNT 

INTEGER CHARCNT#ALGOLCNT,MARGlNCNTl* 
PRT(73) « CHARCNT 
PRT(7fl) b ALGOL.BNT 
PRT(75) w MARGINCNT 

ARRAY HEADT£XTCOI10J» ERKLl NEC Ql 1 63 1 X 
PRT{76) « HEADTEXT 
PRT(77) b ERRUINE 

integfR linecnt,pagecnt,eRRin*jx 

PRT(IOO) = LINECNT 
PRT(lOl) b PAGECNT 
PRT(102* ■ ERRINX 

X 

%*** XREF FILE AND TABLE *** 

FILE XREFFILE DISK SERIAL [20I3B00J <2»3»l50m 
PRT(103) b XREFflLE 

ARRAY BLOCKTABtOIMAXTABLES]. XREFL 1 NE I Oil 63 1 % 
PRTU04) s BLOCKTAB 
PRTU05* b XREFLINE 

INTEGER NUMXREF.NUMBLOCKSJ POINTER XHEFPNTIX 
PRTU06& b NUMXREF 
PRT(107J s NUMBLOCKS 
PRT(HO) b XREFPNT 

X 

X*** OTHER TABLES *** 

INTEGER ARRAY VARL I ST[ 01 L I STLENGTHJ I 
PRT(lll) b VARLIST 

INTEGER VARINDEX,FIRSTVAR;X 
PRT(H2) b VARJNDEX 
PRT(H3* b FlRSTVAR 

ARRAY SYMTABtOlMAXSYMS]; 
PRT(H4^ b SYMTAB 

INTEGER NUMSYMSJX 



X TEMPORARY LIST OF VARIABLES, 



PRT(il50 b NUMSYMS 

ARRAY WjTHTAB[OlMAXWlTHSYMSJI 



PRT(H6? b WlTHfAB 



X USED BY "EXPRESSION", 
X USED BY "WJTHSTAT", 



INTEGER NWlTHSYMSIX 



X USED BY "lNSYMBOL"t 

X USED IN ERROR RECOVERY, 



PRT(H7) b NWITMSYMS 

INTEGER ARRAY SYMBOLt I 64 3 ; 
PRTC1209 b SYMBOL 

INTEGER ARRAY SYMK I NDt I 61] I 
PRTU21) b SYMKJND 

ARRAY PNTRTAB1»PNTRTAB2»PNTRTaB3[QIMAXPNTRS3IX USED FOR FORWARD POINTERS 
PRTC122) b PNTRTAB1 
PRT(123) b PNTRTAB2 
PRT(124^ b PNTRTAB3 

INTEGER NUMPNTRSJX 



00000128 T 0030 

00000129 T 0037 

00000130 T 003/ 

00000131 T 0037 

00000132 T 0040 



00000133 T 0040 

00000134 T 0040 

00000135 T 0040 

00000136 T 0044 



00000137 T 0047 



00000136 T 0047 

00000139 T 0047 

00000140 T 0047 

00000141 T 0049 



00000142 T 0049 

00000143 T 0051 

00000144 T 0051 

00000145 T 0053 

00000146 T 0053 

00000147 T 0054 

00000148 T 0056 

00000149 T 0058 



PRTC125) 
PRT(t?6) 
PRT(l 2 7) 
PRT(i 3 0) 
PRT(13i» 
PRTC132) 



NUMPNTRS 

ARRAY EXTF!UETAB[0»MAXEXTFILES]j 
EXTFILETAB 

INTEGER NUMEXTFILESJX 
NUMEXTFILES 

ARRAY FlLETAB[OlMAXFILESJ* 
FILETAB 

INTEGER NUMFILESU 
NUMFIUES 

BOOLEAN ARRAY ERR[QUl9]J 
ERR 



X EXTERNAL FILES, 

X FILES IN USE, 

X RECORDS ERROR MESSAGES, 



PRTU33) 
PRTU34) 

PRTU35) 
PRTC136) 
PRT(U7) 



X*** COMPILE TIME OPTIONS *** 

BOOLEAN LlSTOPTlON»RESWORDOPTlONtCHECKOPTlON.DUMPOPTlON,XREFOPTlONJX 
LISTOPTION 



* RESWORDOPTION 

* CMECKOPTJON 

* DUMPOPTION 

* XREFOPTlON 

INTEGER CAROLENGTHI* 
PRT(HO) * CARDLENGTM 



PRT(Ul) 
PRT(142) 
PRT(143) 
PRT(144J 
PRT(H50 
PRT(H6) 
PRT'<U7I 

PRT(150) 
PRT(15H 
PRT(152» 

PRTU53* 
PRTC154* 



PRT(155? 

PRT(156» 
PRT(157) 
PRTC160) 
PRTC1613 



X*** INTRINSIC TYPES *** 

INTEGER INTTYPE.REALTYPE»ALFATYPE»CHARTYPE»BOOLTYPE»NILTYPEtTEXTTYPE»« 
INTTYPE 

realtype 
alfatyPe 
chartype 
booltype 

NILT*PE 
TEXTfYPE 

INPUTfILEiOUTPUTF1LE#EMPTYSeTU 
INPUTFILE 
OUTP0TFILE 
EMPTYSET 

BOOLEAN inputdecl.outputdecljx 

INPUTOECL 
OUTPUTDECL 

X 

%*+* TEMPORARY VARIABLES *** 

INTEGER T1.T2»T3#T4,T5IX 
Tl 
T2 
T3 
T4 
T5 



PRT(U2J « USER 



X*** OTHER VARIABLES *** 
ALPHA USER* 



INTEGER CURLEVEL. 
PRT(163) * CURLEVEL 

TOPLEVEL» 
PRTU64* ■ TOPLEVEL 

NUMBEGINS, 
PRT(165) « NUMB6GINS 



* THE USER NUMBER FOUND ON THE USER CARD, 

X CURRENT PROCEDURE LEVEL, 

X TOP LEVEL IN DISPLAY VECTOR, 

X NUMBER OF "BEGIN"S IN THE PROGRAM, 



00000150 T 0056 

00000151 T 0060 

00000152 T 0060 

00000153 T 0062 

00000154 T 0062 

00000155 T 0064 

00000156 T 0064 

00000157 T 0064 



00000156 T 0064 

00000159 T 0064 

00000160 T 0064 

00000161 T 0064 



00000162 T 0064 



00000163 T 0064 



00000164 T 0064 

00000165 T 0064 

00000166 T 0064 



00000167 T 0064 

00000166 T 0064 

00000169 T 0064 

00000170 T 0064 

00000171 T 0064 

00000172 T 0064 

00000173 T 0064 



PRTU66) b NUMCASES 

PRT(167) m NUMREPS 

PRT(170) m NUMTEMPS 

PRT(171* « CURFUNC 

PRT<172? » CURSY 

PRTU73) ■ CURTfPE 

PRT(174* m CURM0OE 



NUMCASESt 
NUMREPS, 

NUMTEMPS, 

CURFUNC, 

CURSY, 

CURTYPE, 

CURMODE. 

UASTRECI 



PRT(175) b LASTREC 

LABEL EnOOFINPUTJX 



% NUMBER OF CASE-STATEMENTS JN PROGRAM, 
X NUMBER OF REPEAT'STATEMENTS IN PROGRAM, 
X NUMBER OF TEMPORARY VARIABLES IN USE, 
X INDEX OF FUNCTION CURRENTLY COMPILED, 
X LAST SYMBOL READ BY SCANNER, 
* TYPE OF ENTITY LAST COMPILED, 
X CURRENT EXPRESSION MODE, 
X LAST RECORD TABLE DEFINED, 



00000174 T 

00000175 T 

00000176 T 

00000177 T 

00000178 T 

00000179 T 

00000180 T 

00000181 T 



FORMAT NOERRORS ("NO ERRORS DETECTED, ")* X 



PRTC176* ■ NOERIORS 



00000182 
00000183 
00000184 
00000185 
START OF SEGMENT 



0064 

0064 

0064 

0064 

0064 

0064 

0064 

0064 

0064 
0064 
0064 
0064 



T 
T 
T 
T 

********** 



ERRORS (15, " ERRORS DETECTED"/) #X 

ALlST ("$ SET LJST SINGLE"). X 

NOALIST Ct RESET LlST")»X 

LASTLINE CI TERMINATE? END OF PASCAL PROGRAM ,") ,X 

TERMMESS («»*** ENq-Of-INPUT, COMPILATION TERMINATED, ")*X 



MONITOR EXPOVRUREALOVERFLOW;* 
PRT(177) m REALQVERFLOW 

X 
X*** SCANNER SYMBOLS *** 



3 IS 



00000186 T 

00000187 T 

00000188 T 

00000189 T 

00000190 T 
46 LONG, 

00000191 T 



DEFINE 



X 

DEFINE 
DEFINE 



IDENTIFIERS** 

CHARC0NST»5#, 

ANDSY»9#, 

MINUS«13#, 

GE0SY»l7#, 

INSY«21#» 

RBRACKET*25#» 

D0T«29#, 

BEGINSY»33#i 

ELSESY«37#, 

UNTILSY»41#. 

T0SY»45#» 

TYPESY«49#, 

SETSY»53#, 

FUNCSY»57#. 

PACKEDSY»61#JX 



INTC0NST»2#, 

N0TSY«6#, 

DIVSY»10#, 

0RSY*i4#, 

GTRSY»18#* 

LPAR*22tf 

D0UBLED0T«26#, 

ARRQW.3M, 

ENDSYs34#t 

CASESY*|8«, 

«HILESY»42#, 

DOWNToSY»46#t 

ARRAYSY«50#. 

C0NSTSY*54#, 

PR0CSy«§8#, 



REALC 
ASTER 
MODSY 
LSSSY 
NEQSY 

rpar» 

COMMA 
COLON 
iFSY» 
OFSYw 
DOSY« 
GOTOS 
RECOR 
VARSY 
WITHS 



0NST»3#» 

ISK«7#» 

»11*» 

»15#» 

»19#» 

23#» 

»27#. 

■31*» 

35#. 

39#, 

43#» 

Yw47#i 

DSY»51#» 

«55*» 

Y«59#, 



ALFACON 
SLASH*8 
PLUS«12 
LEQSY«1 
EQLSY*2 
LBRACKE 
SEMICOL 
ASSIGNS 
THENSY* 
REPEATS 
F0RSY«4 
NILSY«4 
FILESY* 
LABELSY 
PROGRAM 



ST*4#,X 

#»X 

t.% 

6#,X 

0#,X 

T»24*,X 

0N*28#,X 

Y»32#,X 

361, X 

Y»40#.X 

4#»X 

6#,X 

52#,X 

*56#»X 

SY«60#,X 



lNiTlAL«0#, MlDDLE«l#« TeRMI NAL*2#|X 
NUMBER«0#, BlTPATTERN«i#?X 



00000192 
00000193 
00000194 
00000195 
00000196 
00000197 
00000198 
00000199 
00000200 
00000201 
00000202 
00000203 
00000204 
00000205 
00000206 
00000207 
00000206 
00000209 
00000210 
00000211 
00000212 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0064 
0064 
0064 
0064 
0064 
NEXT SEG 
0064 

0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 
0066 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% % 

* X 

* X 
X PART 21 COMPILER UTILITY ROUTINES, X 

X <• X 

% % 

% X 

% X 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% 
X 

PROCEDURE INSYMBOLI FORWARD!* 
PRTC200) * INSYMBOL 

PROCEDURE WRITEALGOLJ FQRWArDjX 
PRTC201) s WRITEALGOL 

PROCEDURE NEWXReFCNAME1»NaME2»TaBLE»DECL)jX 
PRTC202) w NEWX8EF 

VALUE NaMEI* NAME2» TABLE* DECLjX 

REAL NAMEi» NAME2U 

INTEGER TABLE** 

BOOLEAN DECLIX 

FORWARD;* 

X 

DEFINE NDIGITSCN)** 

IF N< 9 THEN 1 ELSE* 

IF NS99 THEN 2 ELSE 3 DIGITSij* 

X 

DEFINE HEADING** 

BEGIN COMMENT *** PRINTS A HEADING ON TOP OF A NEW PAGE, IX 

PAGECNT1»PAGECNT+1*X 

REPLACE P0INTER(HEADTEXT[*m85 BY PAGECNT FOR ND I G I TS(PAGECNT ) ; X 

WRITE(LIN£S[PAGE1)*X 

WRlTE(LlNES[DBLJiU»HEADTEXTC*J)JX 

LINECnT»*2XX 
END OF HEADING#|X 
X 
X 

DEFINE PRINTLINE* X§** PRINTS A SOURCE CODE LINE, 

BEGINX 

REPLACE LINePNT-8 BY CARDcNT FOR 5 DlGlTSlX 

if linecnt^linespeRpage Then headingix 

if RESWORDOPTlON thenx 

B F C I Kl K 

WRlTE(LINES[N0 3.11»XuiNEt*jm 
WRlTE(LINEStNOJ»H»XuiNEt*3)*X 

ENDfX 

WRlTE(LINES,17fLINEt*3)IX 

LINeCNTI»LINECNT+1IX 
END OF PRINTLINE*;* 
X 
X 

DEFINE NEWCARD* X*** READS A NEW SOURCE CODE CARO, 

BEGINX 

IF LISTOPTION THEN PRlNTLlNflX 

if eRRinx>o then printerroRsix 
read(cardtlo«icard[*3) [end8f input j ix 
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X*** GENERATE A TEXT "T"t CONSISTING OF 
X*** "N* LETTERS. STARTING AT "START", 



CARDPNTt«POlNTEH(lCARD[*])l* 

REPLACE LINEPNT BY CARDPNT FOR 10 WORDS, " " FOR 6 NOROSII 

REPLACE XLINEPNT BY " " FOR 10 WORDSlX 

CHARCNTI»CARDLENGTHIX 

MAR G INCNT«»65»I 

cardcnti.cardcnuijx 

END#IX 

X 

X 

DEFINE GEN(T,NtSTART)« 
BEGIN 

IF ALGOLCNT<N THEN WRITEAlG§LIX 

TEXTtO]l«TIX 

Replace algolpntialgolpnt By textpnto+start for nix 

ALGOLCNTl«ALGOLCNT"NIX 
END#IX 
X 
X 

DEFINE GEN!D(L»NUM#NDIG)w !•** GENERATE AN XALGOL IDENTIFIER, 
BEGINX 

IF ALG0LCNT<NDIG THEN WRITEALGOLIX 

CHCOJIwLlX 

REPLACE ALGOLPNTIALGOLPNT By CHARPNT FOR 1, NUM FOR NDIG DIGITSJX 

ALG0LCNTI«ALG0LCNT-NDIG"1»X 
ENO*IX 
X 
X 

INTEGER NABS.NSlZEIX 
PRTC203) « NABS 
PRT<204) « NSIZE 

X 

DEFINE GENlNT(N)cX 
BEGINX 

NABS««ABS(N){ IF N<0 THEN GEN{"-", 1 , 7) I % 

NSIZEUIF NABS* 9 ThEN 1 ELSE* 
IF NABSS 999 ThEN 3 ELSEX 
IF NABS< 99999 ThEN 5 ELSEX 
IF NABSS99999999 ThEN 6 ELSE 12JX 

IF ALGOLCNT<NSlZE THEN WRjTeALGOLJX 

IF NSiZE*l2 THENX 

replace algolpntialgolpnt by (nabs djv loooooo) for 6 djgits»x 

entier(nabs mod loooooo) for 6 digits elsex 
replace algolpntialgolpnt by nabs for nsize digits!* 

algolcnti*algolcnt*n$ize*x 
end of genjntii* 

X 
X 

PROCEDURE GENREAL(X)IX 
PRTC205? * GENREAL 

VALUE X| REAL XjX 
BEGINX 

REAL ABSXJX 



STACK(F*2) * ABSX 

STACKcF+3) m POWER 
STACK(F+4) « VI 



START 



00000268 


T 


0069 


00000269 


T 


0069 


00000270 


T 


0069 


00000271 


T 


0069 


00000272 


T 


0069 


00000273 


T 


0069 


00000274 


T 


0069 


00000275 


T 


0069 


00000276 


T 


0069 


00000277 


T 


0069 


00000278 


T 


0069 


00000279 


T 


0069 


00000280 


T 


0069 


0000028} 


T 


0069 


00000282 


T 


0069 


00000283 


T 


0069 


00000284 


T 


0069 


00000285 


T 


0069 


00000286 


T 


0069 


00000287 


T 


0069 


00000288 


T 


0069 


00000289 


T 


0069 


00000290 


T 


0069 


00000291 


T 


0069 


00000292 


T 


0069 


00000293 


T 


0069 


00000294 


T 


0069 


00000295 


T 


0069 


00000296 


T 


0069 


00000297 


T 


0069 


00000296 


T 


0069 


00000299 


T 


0069 


00000300 


T 


0069 


00000301 


T 


0069 


00000302 


T 


0069 


00000303 


T 


0069 


00000304 


T 


0069 


00000305 


T 


0069 


00000306 


T 


0069 


00000307 


T 


0069 


00000308 


T 


0069 


00000309 


T 


0069 


00000310 


T 


0069 


00000311 


T 


0069 


00000312 


T 


0069 


00000313 


T 


0069 


00000314 


T 


0069 


00000315 


T 


0069 


00000316 


T 


0069 


OF SEGMENT 


********** 



INTEGER P0WER»V1,V2IX 



00000317 T 0000 



STACK(F+5) a V2 



% 



IF X,[46l5]*0 thenx 



BEGIN* 

IF ALG0LCNT<9 then writealgslix 

TEXTtOjUXlX 

REPLACE AL.GOLPNTIALGOLPNT By """, TEXTPNT FOR 7. """IX 
PRT(206) m STRN8 REPLACE 
PRT(207) ■ *DESTINATI0N POINTER* 

ALGOUCNTl«ALG0LCNT-9IX 

END ELSE* 
BEGINS 

IF AU0LCNT<22 THEN WRj TEaLqOLI X 

IF X<0 THEN GEN("C*"»2»6)|X 

ABSXI»ABS(X)IX 

IF ABSX>0 ThENX 

BEG I NX 

while absx*i$7 
while absx<i*6 



» ♦♦ , 



DO BEGIN ABSXl»ABSX/lO! 

DO BEGIN AbSXIsABSXxiOI 
Vil»ENTlER(ABSX)IX 
V2l«ENTlERC(ABSX*Vi)xl000»00)IX 

Replace algolpntulgolpnt by vi for 7 digits. 

V2 FOR 6 DIGITS. "*«!% 

alg0lcnt»»alg0lcntm5jx 

if poweR<o then genc"-",i,7)*x 

P0WERt*ABScP0WER);X 

Replace algolpnt«algolpnT by power for 2 digitsjx 
ALG0LCNT««ALG0LCNT-2ix 

END ELSE GEN("0".1»7)IX 

if x<o Then genc")%i#7 )ix 

ENDIX 
END OF GENREALJX 



powerj*power+l endix 
poweri*poweR*i endjx 
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00000332 
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00000344 
00000345 
00000346 



4 IS 105 LONG. 



0000 
0000 
0001 
0001 
0003 
0004 



0013 
0015 
0015 
0015 
001? 
0027 
0028 
0029 
0029 
0037 
004 3 
0044 
0047 
0055 
0061 
0062 
0073 
007ft 
0078 
0079 
0091 
0101 
0101 
NEXT SEG 



X 
X 

INTEGER TYPEINDEXIX 
PRT(2iO? • TYPEINDEX 

X 

DEFINE NEWTYPE"X 
BEGIN! 



END 
X 

X 

PROC 
BEGI 



END 



IF NUMTYPESfcMAXTYPES ThEN BEGIN ERROR ( 45) I NUMTYPES I wMAXTYPES-20 ENDJ 

typeindexi«numtypeSi»numtypes+iix 

#IX 

EDURE WRITEALGOL* X*** WRITES A COMPLETED XALGOL CARD TO 

N X*** THE FILE, 

REPLACE P0lNTERCALG0LCARDc9j) By CARDCNT FOR 8 DIGITS} X 

WRlTE<PASCALGOL»lOtALGOLCARf»C*J)JX 

IF DUMPOPTION THEN WRITECL INES. iO» ALGOLCARDC *3 ) IX 

ALG0LPNTHtP0lNTER<ALG0LCARDC*J>l ALGOLCNTl «7J I X 

REPLACE ALGOLPNT BY " " FOR 9 WQRDSiX 

OF WRITEALGOLIX 
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0069 
0075 
0079 
0064 
0086 
0090 



PRTC211* « SKIP 



X 
X 

DEFINE MAR6IN(UETTER»NUM)«X 

BEGIN COMMENT *** PLACES INFORMATION IN THE MARGIN, IX 
IF MARGINCNTSU8 THENX 
BEGIN TEXTfO]l»lETTER*X 

REPLACE LINEPNT+MARgINCNT BY TEXTPNT+5 FOR 2,X 

NUM FOR NDIGITS(NUM)IX 
MARGINCNTtsMARGlNCNT + iHX 

endjx 
end of margin#jx 

X 



PROCEDURE SKIP(SYMBOL)' 



X*** SKIP SYMBOLS TO RECOVER FROM ERROR 



VALUE SYMBOL! INTEGER SYMBOLI X*** CONDITION, 
BEGINX 

WHILE CURSY#SYMBOL AND SYMK JNDCCURSY ]«M I DDLE DOX 
IF CURSY«RECORDSY THENX 
BEGIN DO BEGIN INSYMBOLJX 

SKlP(99)JX 
END UNTIL CURSY#SEMlCOLQN AND CURSY#CASESY J X 
END ELSE INSYMBOLIX 
END OF SKIPIX 
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X 
X 

PROCEDURE ERROR(ERRNUM)lX 
PRT(2l2) 8 ERROR 

VALUE ERRNUMJ INTEGER ERRNUMjX 

BEGIN COMMENT *** ARRANGE ERROR INDICATOR, IX 

NUMeRRSIbNUMERRS+UX 

ERRrERRNUM]l«TRUElX 

ERRiNX!»MAX(ERRiNX»CARDLENGTH-2-ChARCNT)!X 
IF ERRINX5H5 THENX 

BEGIN REPLACE POI NTERCERRlINEC 1 3 )+ERRlNX BY "x"iX 
PRT(2i3) » *DES?INATI0N POINTER* 

ERRNUM FOR NO I G I TSCERRNUM) I X 
ERRINXI«ERRINX*CIF ER8NUMS 9 THEN 2 ELSEX 

IF E R RNUM$99 THEN 3 ELSE 4)|X 
END END OF ERRORIX 
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00000402 T 



0100 
0100 
0100 

0100 
0100 
0100 
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0123 
0126 
0129 



PRTC214 9 



X 
X 

procedure printerrorsix 
printerrors 

begin comment *** print error indicators, ix 
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00000406 T 0129 






END 



IF NOT LISTOPTION THEN PRINTLINE** 

WRITE(LINES,17.ERRUINE[*J)II 

LiNfCNTIpLINECNHUX 

REPLACE POINTER(ERRLINEU]) BY " - 

ERRfNXIwOlX 

OF pRjNTERRORSIX 



FOR 16 WORDSJX 
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X 

% 

DEFINE HASHCN) m (N),[35»36J MOQ MAXNAMES#JX 
X 

INTEGER ThiSLEVeL»ThISTaB#TH!SINDEX|X 
PRT(2i5» - THISLEVEL 
PRT(2i6) ■ THISJAB 
PRT(2i7) m THISJNDEX 

ALPHA ThISiDi TNAMEI* 
PRT(220) m THISIO 
PRT(2?1? * TNAME 

BOOLEAN FoUNDlX 
PRTC222) * FOUNO 

X 

DEFINE SEARCHTABCTAB)* %*** SEARCH NAME TABLE "TAB" FOR THE 
BEGIN X** + IDENTIFIER JUST READ, 

THI5INDEXI»HA5HCCURNAME1>»X 
TNAME»»NAMETA8ltTAB#THISlNDEX]U 
WHILE (IF TNAME*CURNAMEl THEN NAMETA82CTABiTHlSlNDEXJ#CURNAME2X 

ELSE TNAMEi»0) DO* 
B r C f NX 

thisinDexuif ThisinDeX.o Then maxnames else thisindex-ijx 

T|gAMEl«NAMETABltTAB» THIS INDEX] J* 
EfgDl* 

FoUNDl«TNAME#OJX 
IF XREFOPTION THEN* 

IF FOUND THEN NEWXREFC CURnAMEI »CURNAME2» TABiFALSE ) I X 
END OF SEARCHTABU* 
X 

DEFINE SEARCH* X*** SEARCH ALL TABLES CURRENTLY IN USE, 

BEGINX 

thisleveli»t0plevel+1ix 
do beginx 

thisleveli*thislevel-ux 

thistabi»if thislevelscuRlevel then thislevelx 

else display[thislevel3,nametab*x 
searchtab(thistab)ix 

end until found or thi slevel*0i x 
thisidi*nametab3cthistab*thisindexj;x 
end of search #ix 

X 
X 

define newname(naheltname2»tab> •% 

begin x*** enter a new name into the name table "tab". 

Thisindexiuhashcnamedjx 

tnamei»nametabictab,thisindexjix 

WhILECIF TNAME»NAMEl THEN NAMETAB2C TABt THI S INDEX J i»NAME2X 
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00000453 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0186 
0186 
0186 
0186 
0186 
0186 
0166 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0166 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0166 
0166 
0186 
0186 
0186 



PRTC223) 



ELSE TNAME*Q) 00* 
BEGINS 

thiSjnoexuif thisinoex«o Then maxnames else thisjndex-i** 

TNAMEI«NAMETABltTA8»THlSlNDEX]*X 
ENDIX 

IF TNAME#0 THEN ERR0R(2)J* 
NAMETABj[TAB,THl5lNDEXji«NAMEllX 
NAMETAB2CTAB»THISIN0EX]|»MAME2I* 
IF XREFOPTION THEN NEWXREF<NAMEl ,NAME2» TAB* TRUE ) I X 
END OF NEWNAME #JX 
% 
% 

PROCEDURE INITIALIZE! X*** INITIALIZATION *** 

INITIALIZE 

BEGIN x********************** 

INTEGER T1»T3IX 



STACKfF+2) m Tl 
STACK(F+3) * T3 

STACK(F*4) * A 



START 
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00000467 

00000466 

OF SEGMENT 
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0166 
0186 
0186 
0186 
0186 
0166 
0186 
0186 
0186 
0186 
0186 
0186 



T 0186 
T 0186 

********** 



ALPHA A;X 

FILL SYMKlNDt*] WiTh 28CM I DDLE ), TERM INAL. 4( M I DOLE ) » IN I T I AL» TERM INAL, 

INI TIAL.MIDDLE. TERMINAL, INI TIAL#MIDDLE» INI TIAL#TERMINAL» IN I TlALtX 

MIDDLE»INITIAL»2(MIDDLE)#INITIAL»MIDDLE»INITIAL»4(MIDDLE)»X 

7(INITIAL)»MIDDLE*X 

FILL SYMBOLC*] WITH 10( 0) , 0, ARRoW, 0, COLON, GTRSY. GEQSY,PLUS, 9(0) , X 

DoT,LBRACKET,ANDSY,LPAR,L8SSY, ARROW, 0, 9(0) .0, ASTERISKS I NUS.X 

RPAR,SEMIC0L0N,LEQSY,0,SLASH,8(0)»C0MMA,0,NEQSY,EQLSY,RBRACKET,X 
0,D0UBLED0T|* 



00000469 T 0000 



FOR 16 WORDSJX 



' " FOR 

'7i;x 



16 WORDS** 



LINePNT l«POINTER(LlNECl]);i 

XLlNEPNTl»POlNTER(XLJNEtn)|X 

REPLACE LINEPNT-8 BY * *> 
PRT(224) s ♦STRING POINTER* 
PRT(225) * *DESTlNATlON POINTER* 

Replace xlinepnt-8 by « » for u wohdsix 
replace pointer(errline[*]) by ■"**•* «, 

ALGOLPNTlsPQINTER(ALGOLCARDf*])J ALGOLCNTl 

REPLACE ALGOLPNT BY " » FOR 9 WORDSJX 

CHARPNTI«P0INTER(CHI*J)+7|X 

TEXTPNTl«PO INTER (TEXT [*])*1 | TeXTPNTO I«TeXTPNT 

Replace textpnt by « " for isix 

STRiNGPNTl«P0lNTER(STRiNGc*3)»X 

Replace pointeR(headtexti*j) by 
Replace pointeR(headtexT[*j) by 

TEXTt0]i«TlME(5)»X 

REPLACE P0lNTER(HEADTEXTC*J)+45 BY TEXTpNT+3 FOR 2» V",X 



w n 



FOR 10 
W PASCAL( H , 



II X 



WORDS, "PAGE 



»t% 



EDITION, ")/B-5700"U 



TEXTPNT+1 FOR 2, "/"» TEXTPNT+5 FOR 2JX 
T1I»TIME(1)/3600IX 
REPLACE P0lNTERCHEADTEXTUJ)*57 BY (Tt DIV 60) FOR 2 DIGITS, "«»,X 

ENTIER(T1 MOD 60) FOR 2 DlGITSU 
HEADINGIX 
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6 IS 62 LONG, 


NEXT SEG 
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NEXT SEG 
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00000493 


T 


0075 


00000494 


T 


0076 


00000495 


T 


0087 


00000496 


T 


0098 


00000497 


T 


0100 


00000496 


T 


0111 


00000499 


T 


0115 



X*** INITIALIZE INTRINSIC TyPES, CONSTANTS ETC. *** 

INTTYPE»«T3!»1I X*** "INTEGER" *** 

TiUNUMERlO T1,$IZEI»U Tl .STRUCT UOJX 

TYPETABitUlsTn T YPETAB2J 1 J I «-MAXI NTJ TYPET A63[ U I «MAXI NT J X 
NEWNAME("7INTEGE"»"R"#0>il T3.IDCLASSIPTYPESIX 
NAMETAB3[0»THISINDEX]|*T3|X 

REALTYPEUT3IP2; x*** "REAL" *** 

Tl,FORMI»FLOATlNGI TYPETaB| [ 2 J I sTU % 
NEWNAME("400REAL"#0,0)J t3, I DCUSS I *TYP£SI % 
NAMFTAB3tOiTHlSlNDEX3l«T3l* 

ALFATyPEI«T3I.3J x*** "ALFA" *** 

Tl,FORMI«ALFAI TYPETABH 33 I *H t % 
NEWnAMEC"400ALFA»»0,0)I T3,IDClASSI«TYPeSIX 
NAMET AB3[ 0» THIS INDEX] » b T3»X 

B00lTYPEIbT3I#4I &*** "BOOLEAN" *** 

Tl,FORMI*SYMBOLICI TYPETaBi t*3 t«Tl? TYPETAB3C43 J«l I X 
NEW N AME("7B00LEA"t"N"»0)l T3. IDCLASS» *TYPES) X 
NAMFTAB3tOfTHISlNDEX3l»T3|X 

CHARTYPEI»T3I»5I X*** "CHAR" *** 

Tl.FORMIsCHARl T YPETAB1C5 ) I «T 1; T YPETAB3 1 5 ] I »63| X 
NEWNAME("400CHAR"»0,0)j t3, I OCLASS I »TYPES I % 
NAMfTAB3[0»THISINDEX3|»T3jX 

T3UBOOLTyPe> T3,IDCLaSS|»cONSTI X*** "FALSE" *** 

NEWnAMF("50fALSE"»0,0)» NAMETAB3t0fTHlSlNDEX3»*T3;X 

X*** "TRUE" *** 
nAMETAB3[0»THISINDEXJJ*T3JX 



X 



T3,lNF0«»ll 

NEWNAME("400TRUE"»0,0)| 

NUMTYPES?w5lX 

NILTYPEI»»U 

EMPTYSETl«-2J 

NEWNAME("6MAXINT",0#0)I T3t< 

T3 t iDCLASSI*C0NST) T3 , JNfOi «1024 i % 

NAMFTAB3tO#THISlNDEX3«»T3|X 

NUMcONSTSl«li consttabcuumaxint;x 



X*** TYPE OF 
X*** TYPE OF 
INTTYPEI X*** 



"NIL" *** 
[] *♦* 

"MAXINT" *** 



T3I*0> T3 f IDCLASSUPROCJ X*** PROCEDURES *** 

FOR Al«"3000GET"» "3000NEW"* "4QOPACK"» "400PAGE"# "3000PUT"*X 

«400READ"i "6READLN"* "50RESET"» "6UNPACK", "50WRITE" DOX 
BEGINX 
STACK(F+5) m *T|MPORARY STORAGE* 

NeWNAME(A#0»O)J NAMETAB3tO,THlSlNDEX]l«T3;X 
ENDtX 

NAMETAB3CO f TH!SlNOEX3t«-T3IX 
NAMETAB3[0,THISINDEXJI*T31X 
NAMETAB3tO,THlSlNDEXJI»T3lX 



NEWNAME("7DISPOS"#"E W #0)I 
NEWNAME("7REWRjT"f"E' , »0)l 
NEWNAME("7WRiTEL"»"N"#0)l 



T3.IDCLASSUFUNCI 

FOR AI»"3000ABS" < 
"400E0LN"» 
"400SUCC"» 
"50TrUNC"» 
"400USER"* 

DO BEGINX 
STACK(F+6) * *TEMPORARY STORAGE* 

NEWNAME(A»0»0)l 

ENDIX 



"6ARCTAN"» 
"3000EXp", 

"50R0UND"» 
"6C0NCAT"* 
"30O0ORD"! 



X*** FUNCTIONS 
"3000CHR". "3000C0S"# 
"20000LN"t "30000DD", 
"3OO0SIN"# "3000SOR"* 
"400TIME"* "400DATE"t 



*** 

"3000E0F"»X 

"400PRED".X 

"400SQRT",X 

"6I0TIME"»X 



NAMETAB3[0,THI$INDEX]I!»T3I* 
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NEWNAMEC"7ELAPSE"» W D"»0H 
NEWNAME("7WEEKDA"#"Y%0)J 



NAMETAB3[0»Th!SINDEX]I«T3IX 
NAMETAB3[0.ThISIN0EX]|»T3*X 



END 



TEXTTYPE»»T3I«NUMTYPES|»NUMTYPES+1J X*** "TEXT" *** 

Tl i* TEXTFIU; Tl, STRUCT l« U TYPETABl [ TEXTTYPE J !« TH X 

T3.IDCLASS I* TYPESJ X 

NEWNAMEC400TEXT W ,0,0)| nAMETAB3[0» THIS INDEX] I pT3IX 

T3I*TEXTTYPE> T3,IDCUASS|*VARl X*** "INPUT" *** 

T3,EXTERNALFILE»*1'X 

NEWNAME C "50 INPUT", 0,0) J j NPUTF ILE * *THl S I NDEX I % 

NAMETAB3[0»THISINDEX]UT3)X 

NEWNAME("60UTPUT",0,Q)J %*** "OUTPUT" *** 

NAMETAB3tO»THlSlNDEX3UT3l OUTpUTF I LE » «THI S I NDEXI X 

OF INTIALIZEIX 
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00000566 



5 IS 797 LONG. 



0643 
0670 
0697 
0697 
0699 
0703 
0705 
0732 
0734 
0736 
0762 
0764 
0789 
0792 
NEXT SEG 



PRTC2269 
PRTC227) 
PRT(230) 
PRTC231) 
PRTC232) 
PRTC233) 

PRT(234) 
PRT(235) 
PRT(236) 
PRT(2373 



AO 

BO 

Al 

Bl 

LAS 

LAS 



» NL 

* LAS 

* A2 

* AX 



PRTC24Q) * DYNAMIC 



X 

X 
X 
X*** XREF ROUTINES *** 

X 

DEFINE XREFCARD»C16I17J##X 

XREFBL0CKBr26llO]ilX 
REAL AO,BO,Al,Bl,LASTA0,LASTAl»X 



T*0 
TA1 

INTEGER NL»LaSTbL0cK»a2.AX|X 

TftLOCK 

X 

PROCEDURE NEWXREF ( NAME 1»NAME2,T ABLE »OECL) IX 

VALUE NAME1»NAME2.TABLE»DECLJX 

REAL NAME1»NAME2IX 

INTEGER TABLEIX 

BOOLEAN DECLIX 

BF G T NX 

NLI«NAME1,NAMELENGTH'X 

IF NL<7 THEN NAMEl«*0*NAMEl[41»4il6;UNAMElt35»6xNL-l»6xNL]X 



DIALS 

ELSE 
AXtuCARDCNTj 
IF DECL THEN 



PRT(241) 
PRT<2429 



m *LI 
9 OUT 



NAME2**0&NAME2c35»6XCNL-6>-lt6xcNL-6>]JX 
AX,XREFBLOCK»»BLOCKTAB[TABLE]»X 

.. ____ AXI*AX»i00000000000;X 

WRlTE(XREFFlLEt*fNAMEl,NAMEt»AX)IX 
STi LABEL, OR SEGMENT DESCRIPTOR* 
PUT(W) 

END OF NEWXREFIX 
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PROCEDURE XREFMAX(A)>X 
PRT(243') « XREF8AX 

ARRAY A[Om 
BEGIN* 

A[QJI*"AZZZZZZ"J A[ 1 ] l*"ZZZZZZ" I 
END OF XREFMAXI* 



A[23 l»9999999999|X 



00000593 T 0218 

0000059ft T 0216 

00000595 T 0218 

00000596 T 0218 

00000597 T 0218 

00000598 T 0222 



X 
% 

BOOLEAN PROCEDURE XREFCOMPARE t A,B) I % 
PRT(244) m XREFBOMPARE 

ARRAY A,B[0]JX 
BEGIN* 

A0l*A[0Jl B0UB[01I All«A[U? Blf'BUlJX 

XREFCOMPAREIsX 

IF A0,r35l363#B0,t35U6j THEN AO, C 35S 36}<B0, C 35 I 36] ELSE* 

JF AUB1 THEN AKB1 ELSE* 

IF ao#bo then ao,namelength<bo,namelength ELSE* 

A[2] LE« BC2m 
END OF XREFCOMPAREi* 
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0242 



X 
X 

PROCEDURE PRINTXREF<FINIS,A)U 
PRTC245) * PRINTXREF 

VALUE FlNlSJ BOOLEAN FlNjSU 

ARRAY Ar03lX 

BEGJNX 

IF FINIS THEN* 
BEGlNX 

WR I TECLINES,17»XREFLINE [*)>*« 
CLOSECLlNESm 
CI,0SE(XREFF1LE)JX 
ENDX 
ELSE* 
BEGlNX 
AOlcAfO]! AltsAti]) A2IbA[2]JX 

If AOwLASTAO AND A1«LASTA| AND A2 t XREFBL0CK«LASTBL0CK THENX 
BEGIN* 

IF NUMXREF«15 THENX 
BEGIN* 

WRlTECLINES,17»XREFLlNEt*])l L I NECNT I «L I NECNT + i I * 
IF LlNECNT>L,lNES P ERpA6E THEN HEADlNGI* 
XREFPNT|»POINTER(XREFLlNEt*])l NUMXREFt»Ol* 
REPLACE XREFPNT BY " * FOR 17 WORDS; XREFPNT l»XREFPNT+24 IX 
END}* 

REPLACE XREFPNT BY A2,XftEFCARD FOR 5 DIGITSIX 
XREFPNT lpXREFPNT + 7 J NUMXREF * «NUMXREF+ 1 J X 
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00000620 
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00000622 
00000623 
00000624 
00000625 
00000626 
00000627 
00000628 
00000629 
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00000631 
00000632 
00000633 
00000634 
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0253 
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0254 
0257 
0260 
0260 
0261 
0262 
0267 
0289 
0292 
0296 
0298 
0303 



END ELSE* 

IF A2<0 ThENX 

begins 

A2 I *A241 00000000000 IX 

WRlTE(LlNES,17.XREFLlNE[*])| L INECNT I »L INECNT+l IX 
IF UNECNT>UNESPERPAGE THEN HEADJNGIX 
XREFPNTl«POINTER(XREFLlNEf*])l NUMXREFI-OIX 
REPLACE XREFPNT BY » « FOR \7 WORDSlX 
TEXTt0]l»A0 t f35l36]l LftSTAO « »AOl X 

?rlT?S5. X . RE K N I BY TEXTpNT + l r° H AO.NAMELENGTHIX 
TEXT[0]l«tASTAll»AUX 

IF A0,NAMEUENGTH>6 TheNX 

REPLACE XREFPNT*6 BY TEXTPNT*! FOR AO, NAMELENGTH-61 X 

Jpr^r/^r^ 17 BY A 2« XR EFCARD F0R*5 DIGITSIS 
XREFPNT | .XREFPNT+241 LASTBlOCK 1*A2 .XREFBlOCKI X 

C. pj 1/ I m 

END|X 
END OF PRINTXREFIX 
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4 
i 

< 

i 
i 
i 



PRT(246J 
PRT(247J 
PRT(250) 
PRTC251) 
PRTC252* 
PRTC253) 



TT 
TT 
Fl 
F2 

LT 
RT 



X 
X 
X 

INTEGER TTl»TT2,Fl,F2iLT.RTI* 



X 

DEFINE 

BEGINX 

IF 

IF 



CHECKTYPES(LEFTTYPE,RIGHTTYP E )«X 



RT|*BIGHTTYPfcJX 

TT2UTYPETABHRT3JX 

F2i«TT2 ( F0RMlX 



LEFTTYPE>0 AND RlGHTTYPE*Q ThENX 

LEFTTYPE#RIGHTTYPE THENX 
BEGiNX 

LTULEFTTYPEI 

TTltwTYPETABitLT]! 

Fll»TTi,FoRMI 

IF LT^REALTYPE OR F2#NUmErIC THENX 

! F jr!!! E I AN D >T^EMPTYSeT)0R(F2#SET AND RT# E MPTYSET) THENX 

BFG1NX AN ° LT '* N I l - TYp E)ORCF2#P0lNTERS AND RT*NI LTYPE )THENX 

IF F1«SET AND F2-SET THffNX 
BEGINX 

LTUTTi.SETTYPEI RT I «TT2,SETTYP£I X 

TTll«TYPETABl[LTj; TT2 UTYPETABl [RT] IX 

F2»»TT2,F0RMIX 



FlUTTl.FORMI 
ENDIX 

IF Fi*pQINTERS AND 
BEGINX 

LTlwTTl.POINTTYPEI 

TT1I«TYPETAB1[LTJ| 

FH«TT1,F0RMI 
ENDIX 



F2«P0INTERS THENX 

RTJSTT2.P0INTTYPEIX 
TT2I.TYPETABHRT3IX 
F2«*TT2, FORNIX 
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Fl I »TT1 .FORM ENDII 
F2I»TT2,F0RM ENDJX 



WHIUE fi«subtype DOX 

BEGIN LT»«TT1,MAINTYPE* TTl t *TYPETABl [ LT ] J 
WHILE F2-SUBTYPE DOX 

BEGIN RTI»TT2,MAINTYPE> TT2l*TYPET ABl [ RT ] J 
IF LT>0 AND RT>0 ThENX 
IF LT#RT THENX 

IF F1#NUMERIC OR F2*NUMeRIC THENX 
IF Fl^CHAR OR F2#CHAR T«EN ERR0RCl7)IX 
ENDIX 
ENDI* 
END OF CHECKTYPeS#IX 
X 
X 

INTEGER FILENAMES 
PRT(25«) m FILENAME 

BOOLEAN LPARFOUNDIX 
PRT(255) * LPARFOUND 

X 

DEFINE FILEPARAMCDEFAULTFILE)«X*** CHECKS THE FIRST PARAMETER TO SEE 
BEGIN %*+* if IT IS A FILE* 

INSYMBOLI FILENAME»»CURTYPEt«0|X 
LPARFOUND I »CURSY*LPAR*X 
IF LPARFOUND Thenx 
BEGlNX 

insymboljx 

if cursy«identifieR thenx 
beginx 
searchjx 
if found thenx 
beginx 
if thisid.idclasspVaR thenx 
beginx 
curtype«*thisid,tyPe»x 
if typetabucurtypE],form*files thenx 
beginx 

FILENAMEUIOOOxtHiSUEVEL + THISINDEXIX 

insymbol*x 
end end end endix 
if symkindccursyjetermlnal then err0r(46)ix 

ENDlX 

IF FILENAMES THEN F I LENAmE t "DEFAULTFI LEU 

IF (FILENAME«INPUTFILE AND NOT JNPUTDECL) ORX 

(FILENAME«0UTPUTFILE AND NOT OUTPUTDECL) THEN ERR0R(96)»X 
END OF FILEPARAM#IX 
X 
X 

INTEGER TFORMJX 
PRT(256* * TFORM 

BOOLEAN StGNEDtNEGATlVESX 
PRT(257) s SlGNtD 
PRT(260> « NEGATIVE 

X 

DEFINE CONSTANT(CVAL#CTYPE>» X*** <CONSTANT> *** 

BEGIN j****************** 

IF CURSY«MINUS OR CURSY«PlUS THENX 

begin signedutrue* negatiVei»cursy«minusix 
insymboux 
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END 



END ELSE SIGNEDI«NEGATIVE|*FALSEJX 

ir cursy.jntconst then* 

BEGIN CTYPElMNTTYPEJX 

CVAUt«lF NEGATIVE ThEn -CURVAL ELSE CURVALJX 
END ELSE* 

IF CURSYwCHARCONST THEN* 
BEGIN IF SIGNED THEN ERR0R(B9)|« 

CTYPEI»CHARTYPE? cvali«curvalix 
END ELSEX 

IF cursy»realconst THENX 

BEGIN CTYPEIwREALTYPEU 

CVAL»«IF NEGATIVE ThEN -CURVAL EL5E CURVALU 
END ELSE* 

IF CURSY-ALFACONST THEN* 
BEGIN IF SIGNED THEN ERR0R(29)IX 

IF CURLENGTH>7 THEN ERR0R(41)JX 

CTYPEI*ALFATYPE| CVAL » »CURVALl X 
END ELSEX 

IF cursymdentifieR thenx 

BEGlNX 
SfARCHIX 
IF FOUND THENX 
BEGlNX 

IF ThiSID,IDCLASS*CONST AND NOT BOQLEANC THIS JD .FORMAL) ThENX 
BEGlNX 

IF TYPETABICTHISID.TYPEJ.FQRMSALFA THENX 
BEGlNX 

CVALI»THISID.INF0|X 

IF CVALM023 THEN CVAL l*CONSTTAB[C VALM 023] I X 

CTYPE»»THI$ID,TYPe!X 

if signed Thenx 

BEGlNX 

TFORMIsTYPeTAbUTHISID.TYPEJ.FORMJX 

IF TFORMJ'NUMERIC AND TFORM*FLOAT I NG THEN ERR0R(?9) ELSEX 
IF NEGATIVE ThEn CVAL I *-CVAL» X 
ENDJX 
END ELSE BEGIN ERR0R(«8)i CVALI »CT YPE » »0 ENDIX 
END ELSE BEGIN ERR0R<32jl C VAL I «CTYPE t *0 ENDJX 

end else begin error(p| cval t»ctypei«0 endjx 
end else begin err0rc32jj cval uctypel »0 endix 
insymbolix 
of constant#ix 
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SYMBOL 


NUMBER 
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KIND 


IDENTIFIER 
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INITIAL 
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END 
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INITIAL 
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THEN 
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THENSY 


MIDDLE 
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CASE 
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MIDDLE 
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REPEAT 
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repeatsy 
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UNTIL 




41 
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WHILE 
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DO 
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00000786 
00000787 
00000788 
00000789 
00000790 
00000791 
00000792 
00000793 
00000794 
00000795 
00000796 
00000797 
00000798 
00000799 
00000800 
00000801 
00000802 
00000803 
00000804 
00000805 
00000806 
00000807 
00000808 
00000809 
00000610 
00000811 
00000812 
00000813 
00000814 
00000815 
00000816 
00000817 
00000818 
00000819 
00000820 
00000821 
00000822 
00000823 
00000824 
00000825 
00000826 
00000627 
00000828 
00000829 
00000830 
00000831 
00000832 
00000833 
00000834 
00000835 



0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 



X 

% 
% 
% 

X 

X 

% 
% 
X 
X 
% 
% 
X 
% 
X 
% 
% 
% 
X 
X 

DEFINE 



FOR 

TO 

DOWNTO 

GOTO 

NIL 

TYPE 

ARRAY 

RECORD 

FILE 

SET 

CONST 

VAR 

LABEL 

FUNCTION 

PROCEDURE 

WITH 

PROGRAM 

PACKED 



44 
45 
46 
47 
46 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 



FORSY 

TOSY 

DQWNTOSY 

GOTOSY 

NILSY 

TYPESY 

ARRAYSY 

RECORDSY 

FILESY 

SETSY 

CQNSTSY 

VAKSY 

LABELSY 

FUNCSY 

PROCSY 

WlTHSY 

PROGRAMSY 

PACKEDSY 



PRTC261) » 



PRTC262) 
PRT(263) 
PRT(264) 
PRTC265) 



PRT(2664 
PRT(267» 



PRT(270| » 



X 

REAL CU 
CURV*L 

ALPHA C 
CURNAME1 
CURNftME2 
C 
CX 

INTEGER 
CURLENGTH 
LASTGHARPOS 

BOOLEAN 
FINIS 
X 

OEFINE 
BEGIN C 
IF 
BEG 



END END 

X 

X 

X 

PROCEDU 

BEGIN C 

INT 



BLANK*48#, EQUAL»6l# 
LETTER(C)«(17<C AND 
ALFANUM(C)«(LETTER(C 

RVALJX 
URNAME1#CURNAME2«C#C 



, QU5TES«63#» D0LLAR»42#»X 
C<25)0R(33SC AND C<41)0R(50SC 
) oR CS9)#)X 



XJX 



curlength»lastcharposjx 



finisjx 



NEXTCHARwX 

OMMENT *** READ NEXT 

CHARCNTwO THEN C««BL 

INX 
REPLACE CHARPNT BY 
CI*CH[0]l CHARCNTls 
#)X 



CHARACTER, *** »X 
ANK ELSEX 

CARDPNTICARDPNT FOR 1IX 
CHARCNT-1*X 



RE insymbolix 
omment *** reads 
eger scale#expjx 



THE NEXT SYMBOLi ***IX 



STACK(F+2) m SCALE 
STACK(F*3) * EXP 

STACK(F+4) « NEGEXP 



BOOLEAN NEGEXPIX 
LABEL START, OVERFLOWIX 



INITIAL 

MIDDLE 

MIDDLE 

INITIAL 

MIDDLE 

INITIAL 

MIDDLE 

MIDDLE 

MIDDLE 

MIDDLE 

INITIAL 

INITIAL 

INITIAL 

INITIAL 

INITIAL 

INITIAL 

INITIAL 

MIDDLE 



AND CSb7)*,% 



00000636 
00000837 
00000838 
00000839 
00000840 
00000841 
00000842 
00000843 
00000844 
00000845 
00000846 
00000847 
00000848 
00000849 
00000850 
00000851 
00000852 
00000853 
00000854 
00000855 
00000856 
00000857 
00000658 
00000859 
00000860 



0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 



00000861 T 0375 



00000862 T 0375 



00000863 T 0375 



00000864 


T 


0375 


00000865 


T 


0375 


00000866 


T 


0375 


00000867 


T 


0375 


00000866 


T 


0375 


00000869 


T 


0375 


00000870 


T 


0375 


00000871 


T 


0375 


00000872 


T 


0375 


00000873 


T 


0375 


00000874 


T 


0375 


00000875 


T 


0375 


00000876 


T 


0375 


00000877 


T 


0375 


START OF SEGMENT 


********** 


00000878 


T 


0000 


00000879 


T 


0000 


00000880 


T 


0000 



THEN* 

CARDPNTICARDPNT FOR CHA 



STARTlX 

IF C«BLANK 
BEGfN SCAN 
PRT(271> p STRNC SCAN 

IF CHARCNT-0 THEN BEGIN NEWC 
PRT(272) s ENDOPiNPUT 
PRT(273) • GO TO SOLVER 
PRT(274) * ^DESTINATION POINTER* 

NEXTChARIX 
ENDlX 

IF LETTER(C) THEN* 
BEGINS 

CURLENGTHIpIJ 

NEXTCHARIX 

WHILE ALFANUM(C) AND CWLENGTH 

BEGIN CURNAMEHbC&CURnAMEH35» 

curlengthi*curleNgth+u 

ENDJX 

IF CURLENGTH*6 THENX 

Br r t Nx 

WHILE ALFANUM(C) AND CURLE 
BEGIN CURNAME2IbC&CURNAME2 

curlengthi»curlength 

ENDlX 

WHILE ALFANUM(C) DO NEXTCH 
ENDlX 

CURNAMEl,NAMELENGTHt*cURLENGTH 
CASE CURLENGTH OFX 
BEGIN IX 
PRTC275) * «CASe STATEMENT DESCRIPTOR* 

CURSyi*lDENTlFlERlX 
CURSYI.IF CURNAMEi«"28000iF w 



RCNTICHARCNT WHILE «" "IX 
ARDI GO TO START ENDIX 



00000881 T 0000 

00000882 T 0000 

00000883 T 0000 

00000884 T 0003 



CURnAME1I»CJ CURNAME2I*0JX 



<6 DOX 
29J30JIX 
NEXTCHARIX 



NGTh<12 DOX 
C35I29I 303 IX 

+11 NEXTCHARIX 

ARIX 
IX 



IF 
IF 
IF 
IF 
IF 

CURSY|«IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 

CURSYI»IF 
IF 
IF 
IF 
IF 



CURNAMEl*"2e0O0DO w 
CURNA*El*"28000T0* 
CURNAMElw^eOOOoR" 
CURNAMEl«"2©OOOoF" 
CURNAME1«"2Q000IN" 

CURNAME1* W 3000END W 
CURNAMEl*«3600FoR" 
CURNAMEl•'•3eOODIV' , 
CURNAME1«"3800M0D" 
CURNAMEl«"3ft00NlL" 
CURNAMe1*»3»O0AND" 
CURNAME1»»3»00N0T» 
CURNAMEi»«3B00VAR w 
CURNAMe1«"3000SeT w 
CURNAME1*»3000LSS» 
CURNAMEi*"3|0QLEQ" 
CURNAMEl« N 3900GE0 n 
CURNAMEl»»3e00GTR w 

curname1»"3000neq" 
curnameiw^oooeql* 

CURNAMElnwAftOTHEN" 
CURNAMe1»»40OELSE" 
CURNAMEIWABOWITH" 
CURNAMEl*w4»0CASE M 
CURNAME1«"4G0G0T0* 



then ifsy elsex 
then dosy elsex 

THEN ToSY ELSEX 

then orsy elsex 

then ofsy elsex 

then insy else identifiers 

then endsy elsex 

then forsy elsex 

then divsy elsex 

then modsy elsex 

then nilsy elsex 

then andsy elsex 

Then notsy elsex 

then varsy elsex 

then setsy elsex 

then lsssy elsex 

then leosy elsex 

then geqsy elsex 

then gtrsy elsex 

then neosy elsex 

then eqlsy else identifiers 

then thensy elsex 

Then elsesy elsex 

then withsy elsex 

then casesy elsex 

then gotosy elsex 



00000885 
00000866 
00000887 
00000888 
00000689 
00000890 
00000891 
00000892 

00000893 
00000894 
00000895 
00000896 
00000897 
00000898 
00000899 
00000900 
00000901 
00000902 
00000903 
00000904 
00000905 

00000906 
00000907 
00000906 
00000909 
00000910 
00000911 
00000912 
00000913 
00000914 
00000915 
00000916 
00000917 
00000918 
00000919 
00000920 
00000921 
00000922 
00000923 
00000924 
00000925 
00000926 
00000927 
00000926 
00000929 
00000930 
00000931 
00000932 



0070 
0078 
0078 
0063 
0064 
0086 
0094 
0102 
0104 
0112 
0113 
0114 
0114 
0123 
0125 

0133 
0134 
0150 
0150 
0152 
0152 

0152 
0154 
0156 
0158 
0160 
0162 
0164 
0167 
0169 
0171 
0173 
0175 
0177 
0179 
0181 
0163 
0185 
0187 
0189 
0191 
0193 
0195 
0198 
0200 
0202 
0204 
0206 



IF CURNAME 

IF CURNAME 

CURSY|«IF CURNAME 

IF CURNAME 

IF CURNAME 

IF CURNAME 

IF CURNAME 

IF CURNAME 

CURSYI«IF CURNAME 

IF CURNAME 

IF CURNAME 

IF CURNAME 

CURSY|»IF CURNAME 



l*»400TYpE» 
MMQOFlLE" 

1*"5BBEGIN W 
1«"58WHILE M 
^"StUNTlL" 
1»"5©ARRAY" 
1«"50CQNST" 
1»*50LABEL" 
l«"6ftEPEAT" 
1*«6D0WNT0" 
1«"6REC0RD" 
l«*»6pACKED" 
l«»7pROGRA» 



CURSYibIF CURNAME1»"8FUNCTI" 
CURSYUIF CURNAMEl» w 9pR0CED" 



CURSYl»lDENTIFlERi 

CURSYI.IDENTIFIERI 

CURSYI»IDENTIFIERJ 
END OF CASE!X 



X to 
x n 

X 12 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
AND C 

ELSE 
AND C 

ELSE 
AND C 

ELSE 
CHARA 
CHARA 
CHARA 



TYpESY 
FILESY 
BEGINS 
WHILES 
UNTILS 
ARRAYS 
CONSTS 
LABELS 
REPEAT 
DOWNTO 
RECORD 
PACKED 
URNAME 

IDENT 
URNAME 

IDENT 
URNAME 

IDENT 
CTERS, 
CTERS, 
CTERS, 



ELSE* 

ELSE IDENTIFIER!* 

Y ELSE* 

Y ELSE* 

Y ELSE* 

Y ELSE* 

Y ELSEX 

Y ELSE IDENTIFIER!* 
SY ELSE* 

SY ELSE* 

SY ELSE* 

SY ELSE IDENTIFIER)* 

2w*M" THEN PROGRAMSY* 

IFIERI* 

2« W 0N" THEN FUNCSYX 

IFIERJ* 

2»"URE" THEN PROCSYX 

IFIERIX 



IF RESWORD 

BEGIN Til* 

IF C 

Repl 



option and cursy#identifier thenx 

cardlength-charcnt-curlengthi* 

harcnt«0 then cardpnt !*cardpnt+1 else t1ut1-1ii 

ACE XLINEPNT4T1 BY CARDPNT-(CURLENGTH+1 >X 

FOR CURLENGTHIX 



END!* 
END Of LETTER ELSE* 

if c*9 then* 

BEGIN* 

CURVAL«*C! 
NEXTCHAR!* 
WHILE C<9 



CURSYlaiNTCBNST!* 



IF C*"," T 

BEGIN* 

NEXTCH 
IF C<9 
BEGIN 



DO BEGIN CURVAL»*lOxCURVAL+C! NEXTCHAR END!* 
HEN* 



AR!X 

THENX 
CURSYI»REALC0NSTIX 
DO BEGIN CURVALlMOxCURVAL + C!X 

SCALEt«SCALE-l! NEXTCHAR!* 
END UNTIL C>9|X 
END ELSE IF C«"," ThEN Cl*64 % SPECIAL MARK FOR ", , " 

else erroR(4>!* 



END!* 

IF C»"E" THEN* 

BEGIN* 

CURSYI 

IF C«" 

IF C<9 

BEGIN 



END EL 
SCALEI 



•REALCONST! NEXTCHAR!* 

*» or C*"*" Then begin negexpi*c*"- w ; nextchar end!* 
then* 
EXPl»C) nextchari* 

WHILE CS9 DO BEGIN EXP 1*1 OxEXP+C! NEXTCHAR END!* 
IF NEGEXp ThEN expi»-expii 
SE ERR0R<4)jX 
•SCALE+EXPJX 



00000933 
00000934 
00000935 
00000936 
00000937 
00000936 
00000939 
00000940 
00000941 
00000942 
00000943 
00000944 
00000945 
00000946 
00000947 
00000948 
00000949 
00000950 
00000951 
00000952 
00000953 
00000954 
START OF SEGMENT 
9 IS 14 LONG 
00000955 
00000956 
00000957 
00000958 
00000959 
00000960 
00000961 
00000962 
00000963 
00000964 
00000965 
00000966 
00000967 
00000966 
00000969 
00000970 
00000971 
00000972 
00000973 
00000974 
00000975 
00000976 
00000977 
00000978 
00000979 
00000960 
00000981 
00000982 
00000983 
00000984 
00000985 
00000986 
00000987 



0208 
0210 
0213 
0215 
0217 
0219 
0221 
0223 
0227 
0229 
0231 
0233 
0236 
0238 
0240 
0243 
0244 
0247 
0249 
0250 
0251 

0252 

********* 

NEXT SEG 
0253 
0254 
0300 
0306 
0311 
0313 
0313 
0313 
0315 
0315 
0317 
0324 
0336 
0336 
0337 
0344 
0345 
0346 
0348 
0357 
0358 
0360 
0362 
0362 
0363 
0363 
0372 
0383 
0383 
0392 
0404 
0405 
0407 



9 
8 



m. 



PRTC276) * OVERFLOW 



PRK277) 
PRT(300) 
PRT(301) 



LN 
EXP 
X TO 



THE I 



ENDI* 

IF CURSY«REALCONSl THEN* 

BEGIN* 

RealoveRflowi«oveRflowi* 
curvali«curvalmo*scalei* 



-.01% 



REALOVERFLOWI: 
END ELSE* 

IF CURVAI>MAXINT THEN! 
BEGIN* 
OVERFLOW! ERR0R(I4)| CURVAL»*Ol REALQVERFLOWl «Ol% 
ENDIX 
END OF DIGIT ELSE* 
IF c*QUQTES THEN* 
BEGIN* 

cursyi»alfaconsti curuengthi»oi nextchar;* 

FINlSlnFAUSEI* 
DO BEGIN* 

IF C»QUoTES THEN BEGIN NEXTCHARl F I N I Si *C*QUOTES END ELSE* 
IF CHARCNT*0 THEN BEGIN ERR0R(6)| FlNISlsTRUE ENDI* 
IF NOT FINIS THEN* 
BEGIN* 

REPLACE STRINGPNT+CURLENGTH BY CHARPNT FOR \l% 
CURLENGTHUCURUENGTH+ll* 

nextchar;* 
end end until finjsjx 
if curlength«o then erR6R(4) else* 
if curlength*i then* 

BEGIN CURSYl«CHARCONSTl* 

REPLACE CHARpnT BY STrJnGPNT FOR II CURVAL««CH[OJJ* 
END ELSE* 

IF CURLENGTH<7 THEN* 
BEGIN TeXT[OJI*" "J* 

Replace textpnt by stringpnt for curlengthi* 
curval1«text[0]jx 

END!* 
END OF STRINGS ELSE* 
BEGIN* 

CURSY«««SYMBOL[C]J NEXTCHARl* 
IF CURSY»COLON AND CsEOUAL THEN* 

BEGIN CURSYIsASSlGNSyj NEXTCHAR END ELSE* 
IF CURSY«DOT AND C*» t « THEN* 

BEGIN CURSYUDQUBLEDeT! NEXTCHAR END ELSE* 
IF CURSY«LSSSY AND C*E«UAL THEN* 

BEGIN CURSY»«LEQSY| NEXTCHAR END ELSEX 
IF CURSYnLSSSY AND C*«>n THEN* 

BEGIN CURSYUNEQSYl NEXTCHAR END ELSE* 
IF CURSY-GTRSY AND C«E«UAL THEN* 

BEGIN CURSYUGEQSYJ NEXTCHAR END ELSE* 



IF CURSY-LPAR AnD C«"*" THEN* 
BEGIN 

NEXTCHARl* 

IF C*DOLLAR THEN 

DO BEGIN* 



00000988 
00000989 
00000990 
00000991 



* *** COMMENT *** 
* DOLLAR INDICATES COMPILER OPTIONS, 



00000993 
00000994 
00000995 
00000996 
00000997 
00000998 
00000999 
00001000 
00001001 
00001002 
00001003 
00001004 
00001005 
00001006 
00001007 
00001006 
00001009 
00001010 

ooooioii 

00001012 
00001013 
00001014 
00001015 
00001016 
00001017 
00001018 
00001019 
00001020 
00001021 
00001022 
00001023 
00001024 
00001025 
00001026 
00001027 
00001028 
00001029 
00001030 
00001031 
00001032 
00001033 
00001034 
00001035 
00001036 
00001037 
00001038 
00001039 
00001040 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0406 
0408 
0409 
0409 



00000992 T 0411 



0414 

0415 

0415 

0416 

0417 

0419 

0419 

0419 

0421 

0422 

0431 

0432 

0432 

0442 

0445 

0445 

0446 

0451 

0452 

0459 

0460 

0462 

0463 

0465 

0468 

0468 

0470 

0471 

0474 

0475 

0475 

0475 

0477 

0485 

0487 

0496 

0498 

0507 

0509 

0516 

0520 

0529 

0531 
0540 
0542 
0542 
0550 
0551 



NEXTCHARI CX|*C| 

if cx8 w l w then ir 



IF 
IF 
IF 
IF 
IF 



CX*"R" 
CX»"C W 
CX*"D n 
CX»"X" 
CX«"A" 
IF Qa» + " 



END 



END 
ENDlX 
OF INSYMBOLJX 



THEN RES 
THEN CHE 
THEN DUM 
THEN XRf 
THENX 
THEN WR 
ELSE WR 
IF CX«"T" THENX 
BEGIN LASTCHARPoS 

CARDUEN6Th»« 
NEXTCHARI CA 
IF CARDL.ENGT 
BEGIN ERRO«( 
CHARCNTlaMAX 
ENDIX 

nextcharix 

end until c#"»"h 

finisufalseix 

do beginx 
if c*"*" thenx 
scan cardpnticardp 

IF CHARCNT-0 THEN 
BEGIN NEXTCHARIX 
WHILE C»"* w 
FlNlSl«C««)w 
END END UNTIL FINI&I 
NEXTCHARIX 
GO TO STARTjX 
OF COMMENTIX 



NEXTCHARIX 

CM THEN HEADINGX 

ELSE LISTOPTIONI«C« W +" ELSEX 

WORdOPTIONI*C«"+" ELSEX 

CKOPTlONUC«"* M ELSEX 

P0PTI0N!«C»"+" ELSEX 

FQPTIONUC«" + " ELSEX 



ITECPASCALGOL.ALISTH 
lTE(PASCALGOL»NOALIST) 



ELSEX 



I* CHARCNT • CAROLENGTHIX 

lOxciX 

RDLENGTHI*CARDLENGTH+CIX 

HS9 OR CARDLENGTH>80 THENX 

14)1 CARDLENGTH»«72 ENDIX 

C0»LASTCHARP0S*CARDLENGTH-im 



NT FOR CHARCNTICHARCNT UNTIL »"*"IX 
NEWCARD ELSEX 



DO 
IX 
X 



NEXTCHARIX 



8 IS 



OOOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 
oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

754 



1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
LONG* 



0552 
0567 
0591 
0593 
0596 
0599 
0602 
0605 
0606 
0610 
0614 
0615 
0617 
0618 
0627 
0629 
0631 
0635 
0635 
0642 
0644 
0644 
0645 
0645 
0648 
0715 
0723 
0732 
0733 
0734 
0741 
0742 
0742 
0742 
NEXT SEG 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% % 

X % 

% % 

% PART 41 EXPRESSION PARSER, X 

* - — X 

X % 

* X 
% % 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

X 

% 

PROCEDURE EXPRESSION! FORWARD** 
PRTC302) « EXPRESSION 

PROCEDURE CONCATI FORWARD** 
PRTC303) * cONCAT 

X 

ALPHA TeMPSYMJ* 
PRT(304) « TEMPSYM 

REAL SXjX 
PRTC305) * SX 

INTEGER EXpRLEVEUTXjX 
PRTC306) ■ EXPRLEVEL 
PRTC307) » TX 

X 

DEFINE PUTTEXT<T)** 

BEGlNX 

IF NUMSYMS«MAXSYMS THENX 
BEGIN ERR0R(7i)IX 

NUMSYMSUll* 
END ELSE NUMSYMSI«NUMSYM§+1JX 
SYMTABtNUMSYMS]»«T»l 
END OF pUTTEXT # I % 
X 

DEFINE PUTSYM(S)*X 
BEGIN* 

TEHPSYMH»(S)4H41|5»63|X 

PUTTEXT(TE M PSYM)»X 
END OF PUTSYM *l% 
% 

DEFINE pUTCONST(VAL)«X 
BEGIN* 

PUTTEXT("2000000 W )I* 

PUTTEXT(VAL)!* 
END OF PUTCONST ffX 
X 

DEFINE PUTDUMMY«X 
BEGINX 

PUTTEXT( w 3O0O00O ,, )JX 

end of putdummy #ix 
X 

DEFINE PUTID(L.NUM,NUMDIG)*» 
BEGIN* 

TEXTt03»«" w & L C35I5I63I* 

REPLACE TEXTPNT+2 BY NUM FOR NUMDIG DIGITS!* 

PUTTEXTCTEXTtOJ)!* 
END OF PUTID#!* 



00001076 
00001077 
00001078 
00001079 
00001080 
00001081 
00001082 
00001083 
00001084 
00001085 
00001086 
00001087 
00001086 

00001089 

00001090 
00001091 

00001092 

00001093 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 
0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 



1094 
1095 
1096 
1097 
1098 
1099 



00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 



0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 

0375 
0375 

0375 

0375 



0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 



X 

DEFINE WRITEEXPR*X 
or r I NX 

FOR Tli»l STEP 1 UNTIL NUMSyMS DOX 
BEQiNX 

SX|*SYMTABtTi J I TXj«sX,U1I6JJ* 

IF TX»0 THEN GEN(SX»7,2} ELSEX 

IF TX»3 THEN ELSE* 

IF TXM THEN GENtSX»l,7) ELSE* 

BEGINS 

Tlt*TUll SX|«SYMTftBtTUl* 

IF SX,[44|6]*0 THfN GENJNTCSX) ELSE GENREALC SX ) > X 

end endjx 
numsymsuojx 

END OF WRjTEEXPR#lX 

X 

X 

DEFINE CHECKEXPR(LtIMtUL,lM)** 

BEGINS 

PUTTEXT( W CHECK(")|X 

EXPRESSION!* 

PUTSYM(%")| PUTCONST(LLlM)|X 

PUTSYMC w i H )| PUTCONST(ULiM)|X 

PUTSYMC",")! PUTC0NST(CARDCNT)»X 

PUTSYM(") w )JX 
END OF CHECKEXPR#JX 
X 
X 

BOOLEAN SIMPLEVARIABLE»INSIDEBRACKETS;X 
SIMPLEVARlABLE 
INSIOEBRACKETS 

INTEGER NUMPOtNTERSjX 
PRTC312) * NUMPOINTERS 

X 

PROCEDURE VARIABLEI* 
PRT(3l3) p VARIABLE 

BEGINX 

INTEGER STARTSYM#LLlMtULlM*X 



PRTC310) * 
PRTC311) m 



OOOOl 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 
OOOOl 



00001156 T 0375 

00001157 T 0375 

00001158 T 0375 



127 


T 


0375 


126 


T 


0375 


129 


T 


0375 


130 


T 


0375 


131 


T 


0375 


132 


T 


0375 


133 


T 


0375 


134 


T 


375 


135 


T 


0375 


136 


T 


0375 


137 


T 


0375 


138 


T 


0375 


139 


T 


0375 


140 


T 


0375 


141 


T 


0375 


142 


T 


0375 


143 


T 


0375 


144 


T 


0375 


145 


T 


0375 


146 


T 


0375 


147 


T 


0375 


148 


T 


0375 


149 


T 


0375 


150 


T 


0375 


151 


T 


0375 


152 


T 


0375 


153 


T 


0375 


154 


T 


0375 


155 


T 


0375 



STACK(F+2) 

STACKCF+3) 
STACK(F+4) 



* START 

* LLIM 
« ULIM 



SYM 



00001159 
0000H60 

START OF SEGMENT 



T 0375 

T 0375 

********** 



STACK(F*5) * T 



STAC*CF+6) 
STACK(F*7) 



« IN|RA 
• iNRpc 



REAL Tl» 

BOOLEAN INBRACKETtlNRECORDJK 
CKET 
ORD 

LABfL addaddR*x 

startsymi«numsyms+iu 

if th1slevel>curlevel then 

BEGIN 

t|«display[thislevelj;x 

t4i»t,firstwithsymi t5|»t «lastw ithsym; x 

for t3|»t4 step 1 until t5 do puttextcw ithtabct3 j ) |x 

inrecordi«truei* 

INBRACKETt»BOOLEAN(T,BRACKETSlNWlTH)!X 



00001161 T 

00001162 T 



X VARIABLE IN FIELD LIST OF 

* RECORD USED In * I TH*STaTEMENT i 



00001163 
00001164 
00001165 
00001166 
00001167 
00001168 
00001169 
00001170 
00001171 
00001172 



0000 
0000 



0000 
0000 
0000 
0001 
0002 
0002 
0003 
0006 
0015 
0016 
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numpointers»«numpointeRs*t,numpntrsinwithjx 

S|MPLEVARlABLE»*FAL$E*X 

CURTYPEt«T,RECTYPE* T I.TyPETABl £ CURTYPE] I * 

GO To ADDADDRJ* 
ENDjZ 

IF THISUEVEL>i AND THI SLEVEL<CURLEVEL THEN ERR0R(5)I* 
CURTYPE I "THIS ID. TYPE I SlMPLEVAR I ABLE I "TRUE I * 
PUTlDC"V"itOOOxTHlSLEVEU+THjSlNDEXib)|X 
INSYMBOLlX 

if cursy»ubracket or cuRsy«dot or cuRsy*arrow then* 

org i NX 

StmplevaRiable«»falseix 

00 BEGINS 

IF CURSYsLBRACKET THEN* 
BEGIN* 

IF NOTClNBRACKET OR INRECORD) THEN* 
BEGIN PUTSYM("C M )> INBRACKET I«TrUE ENDl* 
00 BEGIN* 

Tl*TYPETABUCURTYpEJJ* 

LLIM|«TYPETaB2CCURT*PEJ| UL IM I «TYPETAB3[ CURTYPE 3 J * 

IF T.F0RM#ARRAYS TH|N ERR0RU2)!* 

IF INRECORD THEN PUTTEXTC" ♦(")!* 

insymbolix 

IF CHECKOPTlON THfN CHECKeXPR( LLl M,ULl M) ELSE EXPRESSION!* 

CHECKTYPES(T,INXTYPE» CURTYPE)?* 

CURTYpEl»T,ARRTYPE^* 



IF INRECORD THEN* 

BEGIN* 

IF LLIM<0 THEN B^GIN 
IF LLIM>0 THEN BEGIN 
PUTSYMC*)")jX 

IF TYPETABUcURTYPe3iSIZe>1 



PUTSYM<"+")> 
PUTSYM("-")| 



PUTCONSTC 1 
PUTCONSTC 



'LLIM) 
LLIM) 



END ELSE 
ENDl* 



ADDADDRi 



THEN* 
BEGIN PUTSYM(«x«)| PUTCONSTC TyPeTABU CURTYPeJ . S iZf ) ENDl* 
END ELSE IF TyPETaB| [ CURTYPE ] f STRUCT>0 THEN PUTSyM( % ») I % 
END UNTIL CURSY#C0MMAfX 
IF CURSY#RBRACKET ThEnX 
BEGIN ERR0RC59?! SkI p( RBrACKET ) I X 

IF CURSY*RBRACKET THEN INSYmBOLI* 
END ELSE INSYMBOL** 
END OF BRACKETS ELSE* 
IF CUR$Y»DOT then* 
BEGINX 

IF NOTClNBRACKET OR INRECORD) THENX 

BEGIN PUTSYMC»t")| iNrRacKeT I "TRUE ENDlX 

T»»TYPETABl[CURTYPE3a 

IF T.fORMiiReCOKd THF n ERR0R(12)J* 

fNSYMBOLIX 

IF CURSY.IDENTIFIER ThENX 

BEGINX 

SEARCHTAB(T,RECTAB)l* 
IF FOUND THEN* 
BEGIN* 

THIS!Dl«»NAM£TAB3tT.REcTAB»THl$lNDEXJj* 

PUTSYMC"*")!* 

PUTCONSTC THI SID, INFO) | CURTYPE I«THISID.TYPEI* 
END ELSE BEGIN ERROR(t)j CURTyPE!*0 ENDl* 
END ELSE BEGIN ERR0R(9)I CURTYPe»*0 ENDl* 



73 
74 
75 
76 
77 
78 
79 
80 
8i 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 



00001 

00001 

00001 

00001 

00001 

OOOOl 

00001 

00001 

00001 

OOOOl 

00001 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

OOOOl 

00001200 

00001201 

00001202 

00001203 

00001204 

00001205 

00001206 

00001207 

00001208 

00001209 

00001210 

00001211 

00001212 

00001213 

00001214 

00001215 

00001216 

00001217 

00001218 

00001219 

00001220 

00001221 

00001222 

00001223 

00001224 

00001225 

00001226 

00001227 

00001228 

00001229 



0017 
0019 
0019 

0022 
0022 
0022 
0025 
0027 
0043 
0044 

0047 
0047 
0048 
0049 
0049 
0050 
0051 
0060 
0060 
0061 
0063 
0065 
0072 
0072 
0151 
0212 
0213 
0213 
0214 
0235 
0257 
0265 
0266 
0288 
0298 
0299 
0300 
0302 
0304 
0305 
0305 
0306 
0306 
0307 
0316 
0317 
0320 
0320 
0321 
0321 
0342 
0342 
0342 
0345 
0352 
0367 
0369 



END 



iNRECoRDlsTRUEJX 
INSYMBOUX 

end or dot else* 

BEGIN X CURSY«ARR0W 
Tl«TYpETABlCCURTYpEjJI 
IF TtFORM«F!LES THEN* 
BEGIN! 

CURTYPE»»T»FIUETYPE|X 

IF TYPETABltCURTYPEJ,STRUCT»0 THEN PUTTEXTC [OJ n )jX 
E^D ELSEI 

if t,form»textfile thenx 

BEGlNl 

SYMTAB[NUMSYMS]l«SYMTABtNUMSYMS] & '•J'* [35«5I6JIX 
PUTSYMC"i">1 PUTTEXT("LASTCH«)IX 

CURTYPEI«CHARTYPE|* 
END ELSEX 

IF T.FORM»POlNTERS THEN* 
BEGIN* 

IF INBRACKET THEN PjjTSYMC "3 "> | * 

inbracketi-faIseix 

IF NUMSYMS+2SM A XSyMS THENX 
BEGIN* 

FOR Tll.NUMSYMS STEP -1 UNTIL STARTSYM DO* 

SYMTAB[Ti+23lsSYMTAB[Tl3lX 

SYMTAB[STARTSYM]U" MEMfJX 

SYMTABtSTARTSYM+13«« w (Tl«">X 

numsymSi«nUmsyms+2i nuhpoinTersi«numpointers+hx 

lNRECORDI«TRUEfX 
END ELSE ERR0R(63)IX 

curtypei»t.pointtyp|t* 
end else begin err0r(12)j curtypei»0 end)* 
insymbouh 

END Of ARRQWJX 
END UNTIL CURSY#LBRACKET AND CURSY#DOT AND CURSY#ARROWJ X 
IF TYPETABlCCURTYPE].STRUcT.0 ThENX 

IF INBRACKET THEN PUTsYmC" J" ) * X 
WHILE NUMPOlNTERS>0 Do* 
BEGIN PUTTEXTC-DDIV")! PUTTEXTC" 
PUTTEXTC T MQD")l PUTTEXTC 
NUMPOINTERSMNUMPOlNTERS-ilX 
ENDIX 
ENDlX 
ENDlX 
INStDEBRACKeTSIwINBRACKETiX 

curmode»»numberjx 
of variableix 



1022»")jX 
10223 W )|X 
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000Q 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

IS 490 



1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
LONGf 



0371 
0372 
0372 
0372 
0373 
0374 
0375 
0375 
0377 
0384 
0384 
0386 
0386 
0391 
0404 
0405 
0405 
0408 
0406 
0417 
0417 
0419 
0419 
0421 
0425 
0426 
0428 
0430 
0431 
0434 
0436 
0436 
0438 
0438 
0441 
0443 
0443 
0452 
0453 
0466 
0480 
0481 
0464 
0484 
0484 
0484 
0485 
NEXT SEG 



PRTC314) 



X 
X 

PROCEDURE 
PASSPARAMS 
BEGINX 



PASSPARAMSJX 



00001277 
00001278 
00001279 



0375 
0375 
0375 



00001280 T 0375 



STACKfF*2) a 

STACKfF+3) m 

STACK(F+4) * 

STACK(F+5) • 

STACKCF+6) m 

STACK(F»7) » 
STAC»<(F + 10) i 



GO TO EXIT ENDJX 



iNTpGFR NPARS,PaRAM,PTyPEiP»FIRSTSYMIX 

NPARS 

PARAM 

PTYpE 

P 

FlRSTSYM 

BOOLEAN FORMAUPROC»CHECK|X 

FORMaLPROC 
• CHECK 

UABfL. exitjx 
X 

PUTtD(-V»,1000xTHISLEVeU+THiSINOEX,5)IX 
PUTHlSjO, INFOJX 

FoRMALPR0C«»B0OLEAN(THlSlDtFORMAL)J* 

NPArS|»PARAmTAB[P3I Pt«»P*iJ* 

IF FORMALPROC THEN NPARS I»9999J X 

iNSYMBOLjX 

IF cURSY«LPAR THEN* 

BEGIN* 

PUTSYM("C)|X 
DO BEGINS 
INSYMbOLIX 

IF NPARS»0 THEN BEGIN ERROR(3)J SKIP(RPAR)! 
PARAMInPARAMTABtP]; Pf.P+lJX 
PTYPE!«PARAM,PARAMTYPE*X 
IF PARAM|PARAMKIN0*C0n5T THENX 
BEGIN* 

CHECK|*CHECKOPTION AND TYpETABl [ PTYpE J ,FORM LEQ CHARU 
IF CHECK THEN PUTTEXTl"CHECK< " } J X 
PUTDUMMYi FIRSTSYM|»NUMSYMS|X 

EXPRLEVELf-EXPRLEVEL+lJ* 

EXPRESSION! EXPRLEVEL I *EXPRLEVELMl X 

IF CURMOdE*BITPATTERN THENX 

BEGIN SYMTABtFlRSTSY M 3»*" ReAL("> PUTSYM( ")») I eNDJX 

IF CHECK THENX 

BEGINX 

PUTSYMC"*")! PUTC0N8TCTYPETAB2[PTYPE]);X 
PUTSYMC w » n ); PUT CoNST C TYPETAB3C PTYPE J )JX 
pUTSYMCt")! PUTCoNST(CARDCNT)! PUTSYM( ">") I % 

ENDI* 
END ELSEX 

IF PARAM,PARAMKIND*VAR THENX 
BEGINX 

if cursymdentifier t&enx 

BEGINX 

searchix 

if found thenx 

BEGINX 

IF ThISiD.IDCLASSbVAR ORX 

THISlD,IDCLASS«CONST AND BoOLEAN(THISID, FORMAL) 
BEGINX 

IF PARAMiPARAMFlLE*! THENX 
BEGINX 

CURTYPEt»THlSlDiTYPE»* 

PUTlDC"V"»100exTHlSLEVEL+THlSlNDEX»5)J 

PUTlDCF^ilOOixTHlSLEVEL+THlSlNDEXtS)! 



START 



00001281 
OF SEGMENT 



T 0375 
********** ji 



THENX 



PUTSYM(",")!X 
PUTSYM(",")JX 



00001282 T 0000 



00001283 

00001284 

00001285 

00001286 

00001287 

00001288 

00001289 

00001290 

00001291 

00001292 

00001293 

00001294 

00001295 

00001296 

00001297 

00001298 

00001299 

00001300 

00001301 

00001302 

00001303 

00001304 

00001305 

00001306 

00001307 

00001308 

00001309 

00001310 

00001311 

00001312 

00001313 

00001314 

00001315 

00001316 

00001317 

00001318 

00001319 

00001320 

00001321 

00001322 

00001323 

00001324 

00001325 

00001326 

00001327 

00001328 

00001329 



0000 

0000 

0000 

0016 

0018 

0019 

0021 

0023 

0023 

0024 

0024 

0033 

0034 

0034 

0037 

0040 

0041 

0042 

0043 

0045 

0052 

0060 

0061 

0063 

0064 

0075 

0075 

0076 

0096 

0117 

0146 

0146 

0146 

0147 

0148 

0149 

0149 

0178 

0178 

0178 

0180 

0182 

0183 

0184 

0184 

0186 

0210 



PUTID("I" 

insymboui 

END ELSE* 
BEGIN* 

VARIABLE} 
IF TYpETA 
IF NOT SI 
ENDl* 
END ELSE BEGI 
END ELSE BEGIN 
END ELSE BEGIN ER 
END ELSE* 
BEGINS 

IF CURSY.IDENTIFI 
BEGIN* 
SEARCH;* 
IF FOUND THEN* 
BEGIN* 

IF THISID, 1DCUSS#PARAM,PARAMKIND THEN ERR0R(9i)|X 
PUTlDfVtlOOOxTHlSl-EVEt + THISINDEXtS)?* 

HISID»IDcLaSS«FUNc THEN THISID.TYPE ElSE Ol* 



»1009kThiSlEVEl+ThiSINDEX,5)>* 

X 



Bl[CURTYpEl,STRUCT>0 THEN* 
MPLEVARlABLE THEN ERR0RC92)J* 

N ERR0R(8)I CURTYPEI^O ENDJ* 

errOrcdi curtypei*o ENDl* 
R0RC9JI curtype»*o endi* 



ER ThENX 



CURTYPEt*IF 
INSYMBOLI* 
END ELSE BEGIN 
END ELSE BEGIN ER 
ENDl* 

CHECKTYpES(pTYPE»CU 

NPARS|»NPARS-1IX 

IF CURSY«COMMA THEN 

END UNTIL CURSY#COMMA 

IF CURSY*RPAR THEN BE 

EXIT! PUTSYMC)")jl 

if cursy«rpar then in 

ENDl* 

IF NPaRS>0 AND NOT FORM 

curmode'»numbeRj* 
end of passparamsjx 



ERROR(U» CURTYPEUO END** 
R0R(9)I CURTYPE*«0 ENDl* 

RTyPE)!* 

PUTSYM("t w )|* 
J* 
GIN ERR0RC89)) 5KIPCRPAR) ENDl* 

SYMBOL** 

ALPROC THEN ERR0R(3)J* 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 

oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

IS 414 



1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1336 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
LONG. 



0234 
0250 
0251 
0251 
0251 
0252 
0253 
0256 
0256 
0258 
0260 
0262 
0262 
0262 
0263 
0263 
0292 
0292 
0292 
0295 
0312 
0316 
0317 
0319 
0321 
0321 
0380 
0381 
0390 
0391 
0394 
0401 
0403 
0403 
0406 
0407 
NEXT SEG 



* 
X 

PROCEDURE FACTORI 
PRTC315) ■ FACTOR 

BEGIN 

intfge* startsym»styPeit;x 



**** FACTOR **# 



STACKfF+2) m STARTSYM 
STACKtF+3) * STIPE 
STACK(F+4) » T 



STACK(F*5) « FIRST 

STACKCF+6) * VAL 

X 



BOOLEAN FlRSTjX 
REAL VALl* 

DEFINE PARAMETER* 
BEGINX 



*»** CHEC* THAT THE FUNCTION HAS 1 PARAM, 



00001366 T 0375 

00001367 T 0375 

00001368 T 0375 

00001369 T 0375 

00001370 T 0375 

start op segment ********** 



00001371 T OOOO 

00001372 T OOOO 

00001373 T OOOO 

00001374 T OOOO 

00001375 T OOOO 
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END 



insymbolix 

if cursy*lpar then* 

Brr t N % 

PUTSYM("(")J INSYMBOU EXPRESSIONS 

IF TYpETABltCURTYpEj,FORM»NUMERlC THEN CURTYpE 1*1 NTTYpE ) % 
IF CURSY#RPAR 1HEN BEGIN ERR0R<3>> SKlP(RPAR) EnDII 
PUTSYM(") W )| IF CUrSY*RPAR THEN INSYMBOLI* 

END ELSE ERR0R(3)jX 

OF PARAMETER!!* 



PRTC316) * *SEGMENT 
STAC K CF*0 * DUMMY 



curmodei»numberj* 

if cursy*identifieR then* 

begin* 

SeARCHU 

IF FOUND THEN* 

BEGIN* 

IF THISID,IDCI,ASS*VAR OR* 

TH!SlD»IDCl,ASSwCONST AND BOOUEAN (TH I 5 ID .FORMAL)* 
THEN VARIABLE ELSE* 
IF THISID,IDCLASS«CONsT THEN* 
BEGIN* 

IF THISlDiINF0Si023 THEN PUTCONST C THIS IDi I NFO )* 

ELSE PUTCONST (CONSTTABtTH I SID, INFO 
CURTYPE!»THISIDiTYPf* CURMODEIsNuMbeR** 

insymbol;* 

END ELSE* 

IF THISID,IDCLASS»FUNC THEN* 

BEGIN* 

IF THISTAB»0 THEN **** INTRINSIC FUNCTION 

BEGIN* 

INTEGER DUMMY;* 
DESCRIPTOR* 



1023]); 



*** 



00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 
00001 

oooot 

00001 
00001 
00001 
00001 
00001 
00001 



376 
377 
378 
379 
380 
381 
382 
383 
38* 
385 
386 
387 
386 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 
0002 
0031 
0031 
0031 
0033 
0035 
0036 
0038 
0038 
0054 
0066 
0070 
0071 
0071 

0073 
0073 
0074 
0074 



START OF SEGMENT ********** 
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PARAMETER!* 

ANO CURTYpE#INTTYPE 



THEN ERR0R(67)IX 



THEN 



X "CHR" 



IF CURNaMeU^OOOaBS" THEN X "AB5" 

BEGIN* 

PUTTEXTc" ABS«)> 

if curtype*realtype 
end else* 
if curname1*"3000chr" 

BEGIN* 

INSYMBOLIX 

IF CURSY"LPAR thenx 

BEGIN INSYMBOL; CHECKEXPR(0»63) |X 

IF TYPETABitCURTYPEJ.FORM#NUMERlC THEN ERR0R(67)jX 

if cursy#rPaR then begin eR r 0R(*6)j skjp<rpaR) eNd*x 
if cursywrpaR Then insymbol;* 
end else err0r(58)ix 

CURTYPEl»CHARTYpEJX 
END ELSEX 
IF CURNAME1*"3000EOF" OR X *EOFV"EOLN" 

CURNAME1*"400E0LN" THEN* 
BEGINS 

firsti«curname1*"3000eqf"|x 
filepaRa*unputfile)ix 

PUTID("I' , #FILeNaMe»5);X 

PUTTEXTUF FIRST THEN « .EOF" ELSE " ,EOLN")JX 



00001 
00001 
00001 
00001 
00001 

oooot 

00001 
00001 
00001 
00001 
00001 
00001 
00001 

oooot 
oooot 

00001 
00001 

oooot 

00001 
00001 
00001 
00001 
00001 



407 
406 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
426 
429 



0000 
0000 
0001 
0036 
0039 
0039 
0040 
0041 
0041 
0042 
0120 
0122 
0125 
0127 
0128 
0129 
0129 
0130 
0131 
0132 
0133 
0186 
0201 



BEGIN ERR0RC46)! 
INSYMBOUX 



•ODD' 



paRameteRix 
then err0r(67)ix 
cuRmode»»bitpatteRNji 



X "ORD" 



IF lparfqund thenx 

BEGJNX 

if cursy#rpar then 
if cursy»rpar Then 

ENDjX 

CURTYPE»»BOOLTYpE|X 
END ELSEX 

IF CURNAME»»"30000DD W THEN 
BEGINS 

PUTTEXTC" ODD")l 

IF cuRtyPe*inttyPe 
curtyPei*booltypei 

END ELSEX 

IF CURNAMEl»"30QOoRD* Then 
BEGINS 

PUTSYm<"C")I In$YMBOIJX 
IF CURSY*UPAR ThEnX 
BEGIN* 

INSYM0OLI EXpRESSlONjX 

IF TYPETABitCURTYPE3#FORM>CHAR THEN 

if cursy#rpar then begin eRR0r<46>i 
insyMboux 

end else e«r0r(58)ix 

CURTYPEI*INTTYPE* PUTSYMC")")** 
END ELSEX 
IF CURNAMEi» w 400PRED w OR 

CURNAME!«"40Q$UCC" thenx 
BEGINX 

FIRST|»CURNAME1» W 400PRED"»X 

PUTTEXT(*CHECK(»)j iNSYMBOLlX 

IF CURSY*UPAR THENX 

BEGINX 

INSYMeOLJ EXPRESSIONiX 

PUTSYMdF FIRST THEN »•" eLSE " + ">! 

if typetabiccuRtype3,fokm>char then 



SKIP(RPAR) ENDIX 



ERR0RC67)jX 
SKIPCRPAR) ENDIX 



X "PRED"/"SUCC" 



PUTSYM(»i")l 
PUTSYM("»")J 
PUTSYmC"»*)I 
PUTSYM(")")|X 
IF CURSY^RPAR 
IF CURSY»RPAR 
END ELSE BEGIN 

END ELSEX 

IF CURNaMe*""50R0uNq w 

BEGINS 

PUTTEXTC" ROUNd">J 

if curtyPe^Realtype 

NUMSYMSUNUMSYMS-ll 
PUTCONST(CARDCNT)! 
CURTYpEl«INTTYPElX 
END ELSEX 

IF CURNAMEl»"3000SQl! ,, 
BEGINX 

PUTTEXTC SQR")| 

NUMSYMS|»NUMSYMS*1| 

PUTCONST(CARDCNt)! 

if curtype'Realtype 



PUTSYM( W 1")|X 
ERR0R(67)|X 



PUTC0NST(TYPETAB2CCURTYPE3)IX 
PUTCONST(TYPETAB3tCURTYPE])IX 
PUTCON$T(CARDCNT)IX 



then begin error(46)i 
then insyhbolix 
err0rc58)! curtypei»0 endjx 



SKIP(RPAR) ENDIX 



THEN 

paRameteRix 
Then error(6/)ix 
putsym<"#")jx 
putsymc")")ix 



X "ROUND" 



THEN 



X "SQR" 



PARAMETERIX 

PUT$YM(%")jX 
PUTSYM(")»)|X 
AND CURTYPE#INTTYPE 



THEN ERR0R(67)|X 



00001430 

00001431 

00001432 

00001433 

00001434 

00001435 

0000143$ 

00001437 

0000143B 

00001439 

00001440 

00001441 

00001442 

00001443 

00001444 

00001445 

00001446 

00001447 

0000U46 

00001449 

00001450 

00001451 

00001452 

00001453 

00001454 

00001455 

00001456 

00001457 

00001458 

00001459 

00001460 

00001461 

00001462 

00001463 

00001464 

00001465 

00001466 

00001467 

00001466 

00001469 

00001470 

00001471 

00001472 

00001473 

00001474 

00001475 

00001476 

00001477 

00001478 

00001479 

00001480 

00001481 

00001482 

00001483 

00001484 

00001485 

00001486 



0209 

0209 

0209 

0212 

0214 

0214 

0215 

0215 

0218 

0219 

0254 

0256 

0258 

0258 

0259 

0259 

0269 

0269 

0270 

0271 

0274 

0276 

0277 

0278 

0266 

0286 

0268 

0289 

0269 

0290 

0299 

0299 

0300 

0301 

0319 

0321 

0342 

0363 

0384 

0392 

0394 

0396 

0398 

0398 

0399 

0400 

0435 

0437 

0446 

0467 

0467 

0467 

0469 

0469 

0504 

0513 

0534 



END ELSE* 

IF CURNAME1*"50TRUNC" 

BEGINS 

PUTTEXTC" 7RUnC«)J 
NUMSYMS|iiNUM5YMS"lJ 
PUTCONST(CARDCNT)| 
IF CURTYPE'REAlTYPE 

CURTYPEl'INTTYPEl* 
END ELSE* 

IF CURNAMEl» n 6cON C A?* 
CON C AT ZlSt% 
IF CURNAMeU"400TiMe" 
BEGIN* 

PUTTEXT(»(TIMEC»)J 
CURTYpE|«REAuTYpE| 
END ELSE! 

IF CUrnAME1«"400DaTE" 

BEGINS 

PUTTEXT( B CURDAT-)|« 
CURTYPEl»ALFATYpE| 

END EUSE* 

IF CURNaMe1»"7|;LaPSe" 

BEGINS 

PUTTEXT("(TIMEC«); 
CURTYPEI'REAUTYPEI 
END EUSES 

IF CUrnAME1»"6I0TiME m 
BEGINS 

PUTTEXT<"(TlMEC")j 
CURTYPE|«REALTYpE| 
END EUSES 

IF CURNaMe1»"7WEEKDa" 
BEGJNX 

PUTTEXT( W WEEKDA")JS 
CI)RTyPEI«ALFATYPEJ 



Then 
parameteris 

pUTSYM("»")J* 
PUTSYM(")")|S 
THEN ERR0RC67)!* 



S "TRUNC" 



THEN 

then 



s "CONCAT" 
S "TIME" 



PUTTEXT<«i)/60)")i* 

insymBolis 



THEN 



INSYMBOLIS 



S "DATE" 



AND CURNaMe2»"d" THEN S "ELaPSED" 

PUTTEXT("2)/60)"m 
INSYMBOLIS 



then 



% "IOTIME" 



PUTTEXT("3)/60)")JS 
INSYMBOLJS 

AND CURNAME2*"Y" THEN % "WEEKDAY" 



INSYMBOLIS 



PUTTEXT(" 
INSYMBOLIS 



C-1)")IS 



END ELSE IF CURNAmEi«"400USER« THEN S "USER" 
BEGINS 

PUTTEXT(" TIME")1 
CURTYpE|*ALFATYpE| 
END ELSE 
BEGINS 

PUTTEXTUF 
IF 
IF 
IF 
IF 



S "SIN"»"C0S" ETC 



THEN 
THEN 
THEN 
THEN 
THEN 



" SIN" 
" COS" 

"aRctaN" 

" SQRT" 
" EXP" 



ELSES 
ELSES 
ELSES 
ELSES 
ELSES 



CURN A Mtl*"3000SlN" 
CURNAMfl»"3O00C0s" 
CURN A Mfl«"6ARcTAN" 

cuRNAMti« w *ooseRT n 

CUKNaMe;1«"3000EXP" 
" LN")JS 
PARAMETERS 

IF CURTYPE^REALTYpE AND CURTYPE* I NTTYPE THEN ERR0R(67)I* 
CURTYpEl«REALTYpE|S 
ENDJS 
END OF INTRINSIC FUNCTIONS ELSES 
PRTC3U) » *SEGMENT DESCRIPTOR* 

BEGINS 

ti*thisid,type|s 
passpaRamsis 
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00001487 

00001488 

00001489 

00001490 

00001491 

00001492 

00001493 

00001494 

00001495 

00001496 

00001497 

00001496 

00001499 

00001500 

00001501 

00001502 

00001503 

00001504 

00001505 

00001506 

00001507 

00001508 

00001509 

00001510 

00001511 

00001512 

00001513 

00001514 

00001515 

00001516 

00001517 

00001518 

00001519 

00001520 

00001521 

00001522 

00001523 

00001524 

00001525 

00001526 

00001527 

00001528 

00001529 

00001530 

00001531 

00001532 

00001533 

00001534 

00001535 

00001536 

00001537 

00001538 

784 LONG 
00001539 
00001540 
00001541 



0537 

0537 

0536 

0538 

0573 

0582 

0603 

0605 

0605 

0605 

0607 

0606 

0610 

0611 

0625 

0626 

0626 

0629 

0630 

0637 

0638 

0636 

0642 

0643 

0657 

0658 

0658 

0661 

0662 

0676 

0677 

0677 

0681 

0682 

0669 

0690 

0693 

0694 

0708 

0709 

0709 

0712 

0712 

0712 

0712 

0712 

0712 

0727 

0765 

0768 

0769 

0769 

NEXT SEG 
0076 
0076 
0077 



12 



cuRtype»«tix 

END)* 
END OF FUNCTIONS ELSe* 

IF thiSid,idclass«proc T 

BEGIN* 

ERR0R<68)I PASSPARAM5 
CURTYPEl»Ol* 
END ELSE BEGIN ERR0R<69) 
END ELSE BEGIN ERROR(l)l c 
END Op IDENTIFIER ELSE* 

IF cuRsyschaRconst then* 

BEGIN* 

constanT(Val,curtype); 
end else* 
if cursy.notsy then* 

BEGIN* 

PUTTEXTC" not ")| 

insymboli factor;* 

if curtype>0 thenx 

if curtype*booltype then b 

if curmode*numbeR then* 

BFGIN SYMTA8tSTARTSYM3l« w 

cuRmode»»bitpattern> 

ENDI* 
END ELSEX 

IF cursy.nilsy THEN* 
begin* 

PUTCONSTCq)! curtyrej* n 1l 

insymboli* 

END ELSE* 

if cursy*lpar then* 

BEGIN* 

PUTSYM(»(">|* 

INSYMBOLI EXPRESSlONlX 

IF CURSYi«RPAR THEN BEGIN E 

PUTSYM(»)*)1* 

insymbol'* 
end else* 
if cursypubracket then 

BEGIN* 

Insymboli* 

if cursy»rbracket then* 

BEGIN* 

PUTCONSTCO)! CURTYPEl»E 

INSYMBOLI* 
END FLSE* 

begin* 

FiRSTUTRUEl* 

DO BEGIN* 

IF FIRST THEN FlRST|*F 
pUTTEXTc" BIT(")| ST 
EXPRESSION!* 
IF STYPE*0 THEN* 
BEGIN STYPEI*CURTYPEI* 
IF TYPETABUCURf 
FND ELSE CHECKTYPES(ST 
IF CURSYwDOUBLEDOT THE 



HEN* 

)* 

I CURTYPEl'Ol INSYMBOL ENDI* 
URTYPEI«0| INSYMBOL ENDI* 



putconstcvalJi* 
putdummyi startsymi*numsymsi* 

EGIN ERRORCim CURTYPEfO ENDI* 
BC W I PUTSYM(")")|X 



TYPEI* 



RR0R(46)J SKIP(RPAR) ENDI* 



**** SET CONSTANT *** 



MPTYSETI CURMODEI*NUMBERl* 



ALSE ELSE INSYMBOLI* 
ARTSYmI'NUMSYmSI* 



YPEJiFORM>CHAR THEN ERROR(72)|* 
YPE.CURTYPE)!* 

NX 



00001542 
00001543 
00001544 
00001545 
00001546 
00001547 
00001546 
00001549 

00001550 
00001551 
00001552 
00001553 
00001554 
00001555 
00001556 
00001557 
00001558 
00001559 
00001560 
00001561 
00001562 
00001563 
00001564 
00001565 
00001566 
00001567 
00001568 
00001569 
00001570 
00001571 
00001572 
00001573 
00001574 
00001575 
00001576 
00001577 
00001578 
00001579 
00001580 
00001581 
00001582 
00001583 
00001584 
00001585 
00001586 
00001587 
00001588 
00001589 
00001590 
00001591 
00001592 
00001593 
00001594 
00001595 
00001596 
00001597 
00001598 



0078 

0079 

0079 

0079 

0080 

0081 

0082 

0083 

0085 

0068 

0086 

0089 

0090 

0190 

0190 

0191 

0192 

0206 

0207 

0206 

0211 

0212 

0223 

0224 

0224 

0224 

0225 

0226 

0239 

0239 

0239 

0241 

0241 

0249 

0250 

0252 

0260 

0260 

0260 

0262 

0262 

0263 

0263 

0264 

0279 

0279 

0279 

0260 

0280 

0281 

0283 

0290 

0290 

0291 

0292 

0295 

0356 



BEGIN* 
PUTS 
INSY 
IF S 
BEGI 

ENO 

£HQi% 

PUTSYM 

IF CUR 

END UNTi 

IF CURSy 

BEGIN ER 

IF 

end else 

NEWTYpEj 
Ti.SETTY 
CURTYPEl 
CURMODEl 
ENDlX 
END OF SET C 

E N D Of factor;* 



YM(*»»)J SYMTABCSTARTSYM]!*" BITS("JX 

MBOU EXPRESSION!* 

TYpE*0 THEN* 

N STYPE|«CURTYPE>* 

IF TYpETABUCURTYpE3,FORM>CHAR THEN ERR0R<72)jX 
ELSE CHECKTYPES(STYPE»CURTYPE)J* 



PUTSYMC")")|X 
OR")JX 



C"» W )J PUTCONSTCCARDCNT)! 
SY»cOMM A THEN PuTTEXTC" 

L cursy#commai* 
#rbracket THEN* 

RQR(59)J SKIPCBBRACKET)!* 
CURSYsRBRACKET THEN INSYmBOLJ* 

insymbolu 

Tll-SETl TiiSUE|«ll T1,STRUCT|»0;» 
PEl*STYpE| TYPETABUTYPEINDEXJ|*T1|X 
•TYPEINDEXi* 
■BITPATTERNI* 

ONSTANT ELSE BEGIN ERR0RC99); INSYMBOL ENDU 



12 IS 



OOOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
498 



1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1606 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
LONG* 



0356 
0357 
0366 
0367 
0367 
0369 
0371 
0433 
0433 
0461 
0468 
0469 
0470 
0472 
0473 
0476 
0485 
0488 
0489 
0490 
0490 
0492 
NEXT SEG 



PRT(320) ■ TERM 



z 

PROCEDURE TERMI 



**** TERM *** 



BEGIN ************* 

INTEGER STARTSYM* MODE » TYPE 1»MUL0PTR»FI* 



STACK(F+2> 
STACKfF+3) 
STACK(F*4) 
STACK(F*5) 
STACK(F+6) 



STARTSYM 

MODE 

TYPE1 

MUUOPTR 

F 

pUTDUMMYl startsymi*nUmSymsj* 

FACTOR!* 

M0DE!«CURM0DEI* 

WHILE CURSYiASTERISK AND CURSY<M0DSY DO X 

BEG I NX 

TYPEH"CURTYPEI MULOPTR I »CURSY |X 

F|»TYPETABlCTYPElJ»FORMj* 

IF F'NuMeRic OR* F*Fl-0ATlN 6 THeNX 

bfginx 
modei*numbeR*x 

if cursy»asterisk then putsym("x") else* 
if cursy-slash then putsymc"/") elsex 

IF CURSY«AN0SY THEN ERR0R(64) ElSEX 
BEGIN* 

IF F"FL0ATING THEN ERR0R(64)|* 
IF CURSY»DIVSY THEN PUTTEXT(" 
END END ELSEX 
IF CURTYPE«BOOLTYPE OR F»SET THEN* 



START 



"*"» 



« / «,« j V »t i ». M0D t.,» AND . 



DIV") ELSE PUTTEXTC* M0D w )JX 



00001621 T 0375 

00001622 T 0375 

00001623 T 0375 

00001624 T 0375 

00001625 T 0375 

of segment ********** 



H 



00001626 


T 


0000 


00001627 


T 


0006 


00001628 


T 


0007 


00001629 


T 


0007 


00001630 


T 


0010 


00001631 


T 


0010 


00001632 


T 


0011 


00001633 


T 


0013 


00001634 


T 


0015 


00001635 


T 


0015 


00001636 


T 


0016 


00001637 


T 


0026 


00001638 


T 


0035 


00001639 


T 


0038 


00001640 


T 


0038 


00001641 


T 


0040 


00001642 


T 


0055 


00001643 


T 


0055 



BFGIN* 

modei«bitpatteRnix 

if curmode#mode theni 

begin $ymtab[startsym]»«» bc"> putsymc")") endjx 

PUTTEXTc* AND ")JX 

IF CURSY#CIF F*SET THEN ASTERISK ELSE ANDSY) THEN ERR0R(64)lX 
END ELSE ERR0R(64)J* 
PUTDUMMYI STARTSYM|»NUmSYMS|X 
iNSYHBOLl FACTOR** 
IF CURTYPE>0 AND TYp£l>0 fHENX 
BFGIN* 

IF CURTYPE#TYPE1 THEN* 

IF TYPETABltTYPEU,FORM#NuMERIC OR CURTYPE*REALTYPE THEN* 
CHECKTYPES(TYPEi»CUrTYPE)IX 
IF TYpEl.REALTYpE ThE» CUrTYpE I .REAlTYPEU 
EnDIX 

IF CURTYPE«REALTYPE ANO MULOPTRSDIVSY THEN ERR0RU5)|X 
ENDjX 

IF MULOPTR«SLASH THEN CuRTYPE 1-REALtYPE J X 
IF CURTYPE«0 THEN CURTYPE I »TYPE1 I* 
END OF WHILE LOOPl* 

IF MODE*BITPATTERN and curmode#mode then* 
BEGIN SYMTABtSTARTSYMJI." BC"J PUTSYMC" )« ) ENDIX 
CURmODEIbMODEIX 
END OF TERMf* 
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00001644 


T 


0059 


00001645 


T 


0060 


00001646 


T 


0061 


00001647 


T 


0061 


00001648 


T 


0072 


00001649 


T 


0078 


00001650 


T 


0082 


00001651 


T 


0084 


00001652 


T 


0091 


00001653 


T 


0092 


00001654 


T 


0094 


00001655 


T 


0094 


00001656 


T 


0095 


00001657 


T 


0095 


00001658 


T 


0098 


00001659 


T 


0159 


00001660 


T 


0161 


00001661 


T 


0161 


00001662 


T 


0164 


00001663 


T 


0164 


00001664 


T 


0166 


00001665 


T 


0168 


00001666 


T 


0168 


00001667 


T 


0170 


00001668 


T 


0180 


00001669 


T 


0181 


185 LONC 


i* 


NEXT SEG 



X 
% 

PROCEDURE SIMPLEEXPRESSIONJ 
PRTC321) * SIMPLEEXPRESSION 

BEGIN 

intfgeR startsym,hq D e#tyPfLf*x 



X*** SIMPLE EXPRESSION *** 
************************** 



STACKfF+2) * STARTSYM 
STACK(F+3) » MODE 
STACKCF+4) i TYfcEl 
STACK(F*5) * F 

BOOLEAN SIGNED}* 
STACK(F+6) » SIGNED 

X 

PUTdUMMYi STARTSYM|*NuMSYMs*X 

IF CURSY»PLuS OR CURSY*MiNUS THeNX 

BEGIN SIGNED'«TRUE»X 

PUTSYMdF CURSY.PLUS THEN"*" ELSE »-»)IX 
INSYMBOLJX 

ENDjX 

TERMfX 

MODEI'CURMODEIX 

IF SIGNED THENX 

BEGIN Ff«TYpET ABIC CURT YPE].F0RM|X 

IF F»»NUMERIC AND FLOATING THEN ERR0R(29)I* 

END|X 

WHILE CURSYiPLUS AND CURSYSORSY DO X « + »,»-%"0R w 



00001670 T 0375 

00001671 T 0375 

00001672 T 0375 

00001673 T 0375 

00001674 T 0375 
START OF SEGMENT ********** 
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00001675 


T 


0000 


00001676 


T 


0000 


00001677 


T 


0000 


00001678 


T 


0006 


00001679 


T 


0008 


00001680 


T 


0009 


00001681 


T 


0020 


00001682 


T 


0021 


00001683 


T 


0021 


00001684 


T 


0021 


00001685 


T 


0022 


00001686 


T 


0022 


00001687 


T 


0024 


00001688 


T 


0027 


00001689 


T 


0027 



END 



BEGjNX 

TyPe1'*CURTYPe* F » *T YPfUB U TYPE U» FORM jX 
IF FwNUMERlC OR F«FUOATiN G THEN* 

begin modeunumberjx 

if cursy*plus then putsymc"*") eusex 

IF CURSY»MlNUS THEN PUTSYMC"'") ELSE ERR0RC64)*X 

End eusex 

if curtype«booltype then* 

BEGIN* 

MODEl»BITPATTERN|X 

IF CURMODE*MODE THENX 

BEGIN SYMTABCSTARTSYM]»f n B("» PUTSYM(")") eNDIX 

if cursy«orsy then putt e xt<" or«> e use eRR0R(64>jx 

END EUSE* 

IF FwSET THEN* 

BEGIN* 

M0DE1«BJTPATTERNJ* 

IF CURMODE^MODE THEN* 

BEGIN SYMTABtSTARTSYMJlw" BC b J PUTSYMC ">* ) ENDjX 

if cursy»plus then puttextc or") euse* 

if cursy-minus then begin puttextc 

euse err0rc64)|x 
eno euse err0r(6*)i* 
insymbouix 

PuTDUMMYI STARTSYMlsNUMSYMSlX 
TfRMIX 

IF curtype>o and TYPE1>0 thenx 
begins 

IF CURTYPE#TYpEl THEN* 
BEGIN* 

IF TYpETABlITYPEU.FORMI'NUMERJC OR CURTYPE*REAUTYPE THEN* 
CHECKTYPE$(TYPEI»CUrT¥PE)|X 

IF TYpElnREAUTYPE THEN CURTYPE t *REALTYPE t X 
END ENDJX 

IF CURTYPE"0 then curtypei«typeu* 

END OF WHIUe UOOP|X 

if mode*bitpatteRN and curmode»»bitpattern then* 

BEGIN SYMTAB[STARTSyMJ|«« B("I PUTSYMC")") ENDJX 

CURMODEUMODEJI 

OF SlMPUEEXpRESSlONI* 



AND")JPUTTEXTC" NOT ")END 
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00001690 
00001691 

00001692 
00001693 
00001694 
00001695 
00001696 
00001697 
00001696 
00001699 
00001700 
00001701 
00001702 
00001703 
00001704 
00001705 
00001706 
00001707 
00001708 
00001709 
00001710 
00001711 
00001712 
00001713 
00001714 
00001715 
00001716 
00001717 
00001718 
00001719 
00001720 
00001721 
00001722 
00001723 
00001724 
00001725 
00001726 
00001727 
00001728 
00001729 
IS 213 UONG* 



0030 
0030 
0032 
0034 
0035 
0044 
0054 
0054 
0056 
0056 
0057 
0058 
0068 
0077 
0077 
0079 
0079 
0080 
0081 
0091 
0098 
0114 
0116 
0118 
0118 
0125 
0125 
0127 
0127 
0126 
0129 
0131 
0192 
0194 
0194 
0196 
0196 
0198 
0208 
0209 
NEXT SEG 



STACK(F+2) * 

STACK(F*3) * 

$TACKCF*4> « 

STACK(F+5) * 

STACK(F*6) * 



X 

X 

procedure expressionl 

intfgeR startsym,fiRstsym,typei.ReuoptR,fix 
startsym 

FlrfSTSYM 
TYiEl 
REUOPTR 
F 

boouean cauugenix 



2*** EXPRESSION *** 

X****************** 



00001730 
00001731 
00001732 
00001733 
00001734 
START OF SEGMENT 



0375 
0375 
0375 
0375 
0375 



********** 
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00001735 T 0000 



STAC K CF*7) 9 



callgen 

X 



EXPRLfVEL|«eXPRLEVEL-UJX 
IF EXPRlEVEL ■ 1 THEN* 
BEG J NX 

PUTDUMMYJ* 

FlRSTSYM l« nUmSYmSJ* 
ENDfX 

PUTDUMMYl STARTSYMl*NUMSYMSJ* 
PUTDUMMYiX 
SIMpUEEXPRESSIOMX 

IF cURSYiUSSSY AND CURSY<lNBY THEN 
BEGIN* 

tyPe1»*ciirtype> 

R F UOPTRl*cURSYIX 

if fsalfa Then* 
begin* 

IF CURMODE»BjTPATTERN ThEN* 
BEGIN SYmTAB[STARTSYM]I*" REAU"! 
IF CURSY*L.SSSY THEN PUT$YM<"<") 



% »<•»,«<•♦, »»>»t,»» > »t,tt B « f it^ Wf iij N ii 



F!*TYPeTaBUTYPeU,FORM»* 



IF 
IF 
IF 
IF 

IF 



THEN 
THEN 
THEN 
THEN 
THEN 



PUT5YMCS") 
PUTRYMC-J") 
PUT6YMC">") 
PUTSYMC"*") 
PyTSYMCi*") 



PUTSYMC")") 
ELSE* 
ELSE* 
ELSE* 
ELSE* 
ELSE* 
ELSE* 



ENDJX 



CALLGENl»TRUEI* 



CURSY«LEOSY 
CURSY»GEQSY 
CURSY«GTRSY 
CURSY"EQLSY 
CURSY»NEOSY 
Brr I NX 

IF F*FLOAT!NG THEN f r R0R(64)|* 
SYMTABtSTARTSYM]|« M TNTSTCI PUTSYM( "»" ) J 
END** 

end elsex 

if f«set then* 

BEGIN* 

if curmode«bitpattern then* 

BEGIN $YMTABtSTARTSYM+l]|«" REALCj PUTSYM( M ) W ) ENDl* 

IF CURSY«EQLSY OR CURsYsNEQSY THEN* 

BEGIN PUTSYMCIF CURSY«E«LSY THEN "»» ELSE n **)l% 

END ELSE* 

BEGIN* 

if cursypLeosy then symtabestartsymi i»»incli(" 
if cursy.geqsy then symtabtstartsymj t»"lncl2<" 

PUTSYMC"*")! CALLGENlaTRUEl* 

end end else* 

if f»p0inter$ then* 

BEGIN* 

IF CURSY»EOLSY THEN 

IF CURSY»NEQSY THEN 
END ELSE ERRORC64)** 
INSYMBOLl* 

PUTDUHMY! STARTSYM|«NuMSyMSIX 
SiMPLEEXPRESSlONlX 

if curtype>o and typei>o thenx 
if curtype#typei Thenx 
if reloptr#insy then* 

BEGIN* 

IF TYpETABl[TYp£ij,F0RM#NUMERK OR CURTYpE#REALTYpE THEN* 

CHECKTYPES(TYPE1#cUrTYPE)I* 
END ELSE* 
IF TYPETABHCURTYPEJtFORMi«SET THEN ERR0RC66)* 



ELSE* 

ELSE ERR0R(64)I 



PUT$YMC"»") 
PuTSYM("#») 



ELSE* 

ELSE ERR0RC64)!* 



00001736 

00001737 

00001738 

00001739 

00001740 

00001741 

00001742 

00001743 

00001744 

00001745 

00001746 

00001747 

00001748 

00001749 

00001750 

00001751 

00001752 

00001753 

00001754 

00001755 

00001756 

00001757 

00001758 

00001759 

00001760 

00001761 

00001762 

00001763 

00001764 

00001765 

00001766 

00001767 

00001766 

00001769 

00001770 

00001771 

00001772 

00001773 

00001774 

00001775 

00001776 

00001777 

00001778 

00001779 

00001780 

00001781 

00001782 

00001783 

00001784 

00001785 

00001786 

00001787 

00001788 

00001789 

00001790 

00001791 

00001792 



0000 

0000 

0001 

0002 

0002 

0008 

0009 

0009 

0017 

0024 

0025 

0026 

0027 

0029 

0030 

0031 

0031 

0032 

0043 

0052 

0061 

0070 

0080 

0069 

0096 

0099 

0101 

0112 

0112 

0112 

0113 

0114 

0114 

0125 

0127 

0137 

0137 

0137 

0140 

0146 

0155 

0155 

0156 

0156 

0165 

0176 

0177 

0177 

0184 

0184 

0186 

0187 

0189 

0189 

0192 

0253 

0253 



m 



PRT(3?2) 



EUSE CHECKTYPE$CTYPE1»TYPETABHCURTYPeJ.SETTYPE)JX 

if cuRmooe^bitPattehn then* 

BfGIN SYMTABtSTAKTSYM3U w REAL<"« PUTSYMC")") ENDlX 

IF CAIUGEN THEN PUTSYM(")fO t% 

CURTYPEI»BOOLTYPE) CURmODEI«8ITPATTERNI* 
ENDlX 

EX PR i,EVEUI«EXpRLEVEU*nX 
IF EXPRLEVEL'O THEN* 
BEGINS 

if curmode*bitpattern then* 

BEGIN* 

SYMTABtFIRSTSYM] |« w RiaL(»jX 
PUTSYM(")")fX 

ENDJ* 

WRITEEXPRI* 
m *DESTlNATlON POINTER* 
ENDlX 
END OF EXPRESSION** 



16 



00001793 


T 


0256 


00001794 


T 


0318 


00001795 


T 


0318 


00001796 


T 


0329 


00001797 


T 


0337 


00001798 


T 


0339 


00001799 


T 


0339 


00001800 


T 


0341 


00001801 


T 


0342 


00001802 


T 


0342 


00001803 


T 


0343 


00001804 


T 


0343 


00001805 


T 


0345 


00001806 


T 


0353 


00001807 


T 


0353 


00001808 


T 


0432 


00001809 


T 


0432 


IS 439 LONGt 


NEXT SEG 



X 

* 

DEFINE R OOLeXPR«X 
BEGI*X 

PUToUMMYI EXPRLEVEL'wU EXPRESSION!* 

if curtype>o then if curtyPe*bqoltype then error<i7>ix 
if curmode*bitpattern thenx 

BEGIN SYMTABC1 ] I »« B("j PUTSYMC ")") EnDJX 
EXp R LEVEL|«0* WRITEEXPRJ* 
END OF B00LEXpR#jX 



00001610 
00001811 
00001812 
00001813 
00001814 
00001815 
00001816 
00001817 
00001818 
00001819 



0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

* * 

* % 

* % 

X PART 51 INTRINSIC ROUTINES, * 

X * 

* X 

* % 

* X 
%%%%%%%%%%%%%%%%%%%%%%%%*%%%%%%%%%%%*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% 

% 

PROCEDURE CONCATI **** "CONCAT" *** 

BEGIN x**************** 
DEFINE INTEXPR«5K 



BEGIN INSYMBOLI EXPRESS! 
IF CURTYpE>0 THEN* 
IF TYpETABltCURTYP 

END #|* 



ON'X 

E]»FORM#NUMERIC THEN ERR0RC17)!* 



END 



PUTTEXTCCONCAT")! 

INSYMBOLI* 

IF CURSY«LPaR THENI 

BEGINI 

INSYMBOU EXPRESSION! 

IF curtype>o THEN* 

IF TYPETABl[CURTYPE],F 
IF CURSY«COMMA THEN* 
BEGIN* 

PUTSYMC"*")! INSYmB 
IF CURTYPE>0 THEN* 
IF TYPETAB1CCURTYPEJ 
IF CURSY«COMMa THEN* 
BEGIN* 

putsymc",")* inte 
if cursy*comma The 

BEGIN* 

PUT$YM("»»)J IN 
IF CURSY-COMMA T 
BEGIN* 

PUTSYMC"*")! 
PUTSYMC"*")) 
PUTSYMC")")|X 

if cursy^rpar 

end else begin e 

end else begin err 

end else begin e«ror 

end else begin error(3 

end else begin errorc3)i 

CURTYpElsREALTYpEl* 

IF CURSY»RPAR THEN insym 

OF CONCATi* 



PUTSYmC"C")jX 



ORMMLFA THEN ERR0RCl7)U 

OL> EXpRESSlONl* 
tFORM>ALFA THEN ERR0RC17)J* 



XPRjX 
N* 

TEXiRI* 
HEN* 

InTEXPR;* 
PUTCONST(CARDCNT)|* 

THEN BEGIN ERR0RC3)! SKIPCRPAR) ENDl* 
RrORC3)j SKIPCRPAR) ENDl* 
0R(3); SKIPCRPAR) ENDl* 
(3)1 SKiP(RPAR) ENDl* 
)» ^KIP(RPAR) ENDJX 
SKIPCRPAR) EnDJ* 

BoLj* 



00001821 
00001822 
00001823 
00001824 
00001825 
00001826 
00001827 
00001826 
00001829 
00001830 
00001831 
00001832 
00001833 
00001834 
00001835 
START OF SEGMENT 
00001836 
00001837 
00001836 
00001839 
00001840 
00001841 
00001842 
00001843 
00001844 
00001845 
00001846 
00001847 
00001648 
00001649 
00001850 
00001851 
00001852 
00001853 
00001854 
00001855 
00001856 
00001857 
00001856 
00001859 
00001860 
00001861 
00001862 
00001863 
00001864 
00001865 
00001866 
00001867 
00001868 
00001869 
00001870 
00001871 
00001872 
17 IS 120 LONG. 



0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 

0375 

********* 

0000 
0000 
0000 
0000 
0000 
0000 
0014 
0015 
0015 
0016 
0017 
0018 
0021 
0022 
0022 
0031 
0031 
0035 
0035 
0036 
0046 
0049 
0050 
0062 
0063 
0063 
0076 
0096 
0104 
0106 
0108 
0110 
0112 
0114 
0116 
0117 
0119 
NEXT SEG 



17 



00001873 T 0375 



PRT(323) s PREAD 



PROCEDURE PREAD(CHANGELlNE)JX 

l 

value changelinej boouean CHAnGELINEU 
beginx 

INTEGER FILEID>FlX 



0G0Q1874 T 0375 
00001675 T 0375 



STACK(F«2> 
STACK(F*3> 



FILEID 
F 



00001876 

00001877 

00001878 

START OF SEGMENT 



T 0375 
T 0375 

T 0375 

********** 



16 



STACK(F*4) » CHfccK 



BOOLEAN CHECK)* 



GEN<" BEGIN"»7,2)|X 

FlLfPARAMUNPUTFlLE)! F I LEI Dl *F ILENAMEI X 

IF TYPETABltCURTYPE],FORM«FiLES THEN ERR0R(85)JX 

IF SYMKIND[CURSY]#TERMINAL THENX 

BEGINX 

IF CURSY NEQ RPAR THENX 
Do BEGIN* 

WHILE CURSYcCOMMA 00 INSYMBOLIX 
IF CURSYMDENTJFIER ThEnX 
BEGIN* 
SEARCHIX 
IF FOUND THENX 
BEGINX 
IF THISID,JDCUSS»VAB ORX 

thiSid,idciass«cOnst and booleancThisid, formal) THENX 

BEGINX 
VARIABLE I F ! »TYPET ABIC CURT YPU, FORM IX 
IF FbNUMERIC OR FbFlOATING OR FwCHAR THENX 
BEGINX 

CHECKI»CHECKOPTlON AND F*FLQATINGJX 
WRITEEXPRI GEN(»|«»,2,6)JX 
PRT(324) * *DESTlNATlON POINTER* 

IF CHECK THEN GEN( "CHECKC % 6.2) I X 

GENC W PREADC , »6«?)| GENlD("F"#F I LEI Dt 5) I GENC"-" 

GENlD("V"iFlLElD»B)J GEnC"»"» 1 .7) IX 

GENIDC"I"»FILEID»5)J GENC"»"# 1 » 7) I X 

IF F«NUMERlC THEN GENINTC2) ELSE* 

IF F*FL0ATING THEN GENlNT(3) ELSE GENlNTCDl* 

GEN( W » M »1»7)| GENINTCCARDCNT)! GENC ")"» 1 #7 ) I X 

IF CHECK THENX 

BEGINX 

GEN("»"#1«7)| GENINT(TYPETAB2CCURTYPE3)» 
GENjNTCTYPETAB3tCURTYPE3)l 
GENINTCCARDCNT)! GEN(")"# 1 » 7 ) IX 
ENDIX 

end else begin erro*c82)j insymbol endix 

END ELSE BEGIN ERRoR(8)l INSYMBOL ENDlX 
END ELSE BEGIN ErrOr(I)! INSYMBOL ENDlX 
END ELSE ERR0R(9)I* 
GENC|"»1»7)|X 
END UNTIL CURSY*C0MM A jX 

IF CURSY#RPAR THEN BEGIN E RR 0R<*6)| SKIP(RPaR) ENDlX 
IF CURSY»RPAR THEN INSYMB6LIX 
ENDlX 

IF CHANGEUINE ThENX 
BEGINX 



»"M»7)IX 



GEN<%",1 



7)IX 



GEN( w ,"tlt7)IX 



00001879 T 0000 



0000 
0000 
0000 
0000 

oooo 

0000 
0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 



I860 
1881 
1682 
1883 
1884 
1885 
1886 
1887 
1888 
1689 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 

1901 
1902 
1903 
1904 
1905 
1906 
1907 
1906 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1916 
1919 
1920 
1921 
1922 
1923 
1924 



OOOO 
0009 
0062 
0065 
0066 
0066 
0067 
0068 
0070 
0071 
0071 
0100 
0100 
0100 
0102 
0104 
0105 
0107 
0109 
0110 
0112 

0199 
0209 
0239 
0260 
0281 
0329 
0418 
0460 
0460 
0481 
0543 
0596 
0649 
0649 
0652 
0655 
0658 
0660 
0669 
0671 
0673 
0675 
0675 
0676 



GENC"RLlNEC' , »6»2>l GENlD("F"# F IlEID* 5 ) I GENC"»"» 1 » 7 > I X 
GENIDC"V W #FILE1D»5)I GENC"»"» 1 #7) I * 



6ENID("I"»FILEID»5)| 
ENDj* 
GENC"END"»4.5)jX 

end of preadix 



6EN( w )".li7)i» 



00001925 
00001926 
00001927 
00001926 
00001929 
00001930 



0676 
0706 
0727 
07*8 
0748 
0757 



18 IS 773 LONG* NEXT SEG 



X 
% 

PROCEDURE PWRlTECUNEFEEDm 
PRT(3?5» » PWRITE 

VALUE LINEFEED! BOOLEAN LINEFEEDS 
BEGINS 

INTEGER FlLE!D»Ft I»LASTSY|X 



STAC*CF*2) 
STACK(F*3) 
STACK(F+«) 
STACK{F*5) 



FIbElO 

F 

I 

LASTSY 



START 



STACKCF46) * P 



POINTER PIX 



genc" begin"»7»2)|x 

fllepapam(outputfile)j f jle i d i »f jlenamel % 
if typetabucurtypej. form-files then errorcsshx 
if symkindccursy3#terminal thenx 

BEGlNX 

if cursy neo rpaR thenx 
do bfginx 

WHILE CURSY«COMMA DO iNsyMbOLjX 

IF CURSY«ALFACONST ANd CURLeNgTH>7 thenx 

BEGIN* 

GENC"WAlFA(",6*2)J GEN ID( »F" »F I LEID.5 ) I GENC "#"» 1 . 7) IX 
PRT(3?6) • *DESTINATI0N POINTER* 

GENlD( w V"»FILElDt5)| GENC »»"• 1 f 7 ) |X 

GENlDC"I"#FILElD#5)| GENC "* "» 1 * 7 ) I X 

P|"STRINGPNTJX 

FOR I|«l STEP 7 UNTIL 80 DOX 

IF I<CURLENGTH then* 

BEGIN* 

IF ALGOLCNT<10 then 
REPLACE ALGOLPNTIa'LGOLPNT 
ALGOLCNTlnALGOLCNT-iOIX 

END E^SE GENC"0#»»2.6)JX 

GENINTCCURLENGTHJI GENC"»"# 1 * 7) I X 

GENINTCCARDCNT)* GENC" }"> 1 1 7 ) 1% 

INSYMBOLJ* 
END OF ALFACONST ELSEX 
BEGINX 

GENC"PWRITEC"»7»1)» 

GENIDC"V"»FILeID»5)| 

GENlDC w r#FlLElD»5)| 

LASTSYI*CURSYIX 

EXPRESSION! F'^TYPeTaBHCURTYPeI.FORMI* 

GEN("»", 1,7)1* 



WRITEALGOLIX 
BY «■)•) 



, PIP FOR 7, »"», 



•♦IX 



GENIDC W F W »FILEID»5)1 GENC ".", 1 »7 ) | * 
GENC. "#1, 7)1* 
GEN(«»",1,7MX 



00001931 T 0375 

00001932 T 0375 

00001933 T 0375 



00001934 

00001935 

00001936 

OF SEGMENT 



T 0375 
T 0375 
T 0375 

********** 
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00001937 T 0000 



0000 
0000 
0000 
0000 

0000 

0000 
0000 

0000 
0000 
0000 

0000 



1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 



00001949 
00001950 
00001951 
00001952 
00001953 
00001954 
00001955 
00001956 
00001957 
00001958 
00001959 
00001960 
00001961 
00001962 
00001963 
00001964 
00001965 
00001966 
00001967 
00001968 
00001969 



0000 
0009 
0062 
0065 
0066 
0066 
0067 
0068 
0070 
0072 
0072 

0102 
0123 
0144 
0145 
0147 
0147 
0148 
0150 
0161 
0163 
0174 
0227 
0280 
0280 
0280 
0281 
0311 
0332 
0353 
0354 
0356 



m 



IF 
IF 
IF 

IF 



F*NUMERIC 
F«FL0ATING 

F«ALFA 

f«chaR 



ELSE* 
ELSE* 
ELSE* 
ELSE GENINT(3)|X 



THEN ERRORCinjX 



PRTC327) » *SEGMeNT 
STACK(F*7) • DUMMY 



PRT(330) • *SEGmENT DESCRIPTOR* 

GENC"END"i4»5))* 
END OF pWRlTEj* 



IF F»NUMERIC OR F«fF L OATING OR FbCHAR OR F«ALFA OR* 

curtypepbooltype then* 

BEGIN* 

THEN GENINTC1) 

THEN GENINTC2) 

THEN 6ENINTC5) 

THEN GENINTC*) 

IF CURSY»COUON THFN* 
BEGIN* 

insymbou expression;* 

if typetabttcurtype],form neq numeric then err0rc17>i* 

GEN( w »"il»7))X 

IF CUrSY*COLON THEN* 

BEGIN* 

IF F»»FU0ATING THEN ERR0RC4))* 

INSYMBOL; EXPRESSION)* 

IF TYPETABlECuRfYPEJtFQRM N EQ NUMERIC 
GENC"»*M»7))X 

END EtSE GEN("»i#P,3#5)|I 
END ELSE* 
BEGIN* 

IF FbFLOATING 
IF F*AUFA AND 

IF F«ALFA THEN GEnInTC7) 
IF F»CHAR THEN GENlNTCl) 
GEN("»»1'"»4»4))* 
END)* 
END ELSE ERR0RU7))* 
GENlNT(CARDCNT)J GfN( w ) ,, ,J.7);* 
END OF EXPRESSION)* 
GEN(")",1,7))X 
END UNTJL CURSYjtCOMMAJX 
IF CURSY#RPAR THEN BEGIn ERR0RU6)) 
IF CURSY«RPAR THEN InSYmBoL** 
END)* 

FILENAME|»FIUEID)* 
IF LINEFEED THEN* 
BEGIN* 

INTEGER DUMMY)* 
DESCRIPTOR* 

GfN("WLiNe<%6,2)) GENlDC n F",FlLENAME»5)) GEN<"."»1 , 7 ) ) X 
GENlD( w V H »FILENAMEf5)l GEN(",« a l*7)lX 
GEN ID( "I ".FILENAMES) J GEN( ">% 1 1 7) I * 
END)* 



ThEn GENINTU6) ELSE* 
LASTSY»ALF"ACONST THEN 

ELSE* 
ELSE 



GENINT(CURLENGTH) else 
GENINT(IO))* 



SKIP(RPAR) END)* 



00001970 
00001971 
00001972 
00001973 
00001974 
00001975 
00001976 
00001977 
00001976 
00001979 
00001960 
00001981 
00001982 
00001983 
00001984 
00001985 
00001986 
00001967 
00001988 
00001989 
00001990 
00001991 
00001992 
00001993 
00001994 
00001995 
00001996 
00001997 
00001998 
00001999 
00002000 
00002001 
00002002 
00002003 
00002004 
00002005 
00002006 
00002007 
00002008 
00002009 



0365 
0368 
0369 
0370 
0416 
0461 
0506 
0595 
0604 
0605 
0605 
0606 
0609 
0618 
0619 
0619 
0621 
0622 
0625 
0634 
0643 
0643 
0646 
0691 
0737 
0782 
0871 
0860 
0860 
0882 
0935 
0935 
0945 
0946 
0949 
0951 
0951 
0952 
0953 
0953 



START OF SEGMENT ********** 



20 



00002010 
00002011 
00002012 
00002013 



20 I 
19 I 



S 74 LONGi 

00002014 T 

00002015 T 
S 975 LONG. 



0000 
0030 
0051 
0072 

NEXT SEG 

0954 

0963 
NEXT SEG 



IV 



00002016 T 0375 



%*+* FILE HANDLING PROCEDURESJ 

X*** 

X*** 1) PUT 

X*** 2) GET 



x*** 3> reset 
%*** 4) rewrite 



X*** 5) PAGE 



% 

procedure filehandlingcprocnum); 
prtc331* s filehandling 

VALUE PrOCnUM! INTEGER PROCnUm* 
BEGIN 

INTEGER Fj 

STACK(F*2> * F 

casf procnum or 

BEG?N I 
PRT{332) * *CASe STATEMENT DESCRIPTOR* 

GEN("PUT»,3t5)J 
GEN("GET"»3t5)» * 
GEN( H RESET"t5»3)* * 
GENC"REWRITE">7il)l X 
GFN(*'PAGE ,, »4»4)I X 
END) X 



6EN("C"»1»7)| FIUePARaM(O)) X 
IF FIL.FNaMe»0 THEN eR«0R(78)| X 
FUTYPETABltCURTYPE3|FORM|X 
IF F»FILES AND PR0CNUM.5 THEN ERR0R(80)JX 
GEN I DC "F",F I LENAME»5)» GEN("»"»t»7)JX 
PRT(333) • *DEST:iNATlON POINTER* 

GENID( W V W » FILENAME'S) I GEN( "» "t 1 * 7 ) I % 
GENIDCI^FILENAME'S); GeN< "• "» 1 . 7) t % 
GENINT(CARDCNT)! GEN<" )% 1 , 7) I X 

IF cURSY#RPaR THEN BEGIN pRB0RC46)» SKIPCRPAR) ENQjX 
IF cURSY«RPaR THEN INsyMboL|X 

end Of fiUehanduiNqix 



00002017 T 0375 
00002016 T 0375 



START 



00002019 

00002020 

00002021 

OF SEGMENT 



T 0375 
T 0375 
T 0375 

********** 



21 



00002022 T 0000 

00002023 T 0000 

00002024 T 0000 

00002025 T 0010 

00002026 T 0019 

00002027 T 0029 

00002028 T 0036 

00002029 T 0048 
START OF SEGMENT 



********** 



22 IS 



7 LONGi 



00002030 
00002031 
00002032 
00002033 
00002034 



21 IS 



00002035 T 

00002036 T 

00002037 T 

00002038 T 

00002039 T 

00002040 T 
243 LONGi 



NEXT SEG 
0048 
0114 
0116 
0118 
0121 

0142 
0163 
0184 
0236 
0239 
0240 
NEXT SEG 



22 
21 



PRT(334) ■ PACK 



STACK<F+2) * IT 
STAC«(F+3) * T 



X 
X 

PROCEDURE PACKIX 

BEGINX 

INTEGER IT#T|X 



GEN("PACK< W #5,3)JX 

INSYMBOLIX 

IF cURSY.LPaR thenx 

BEGfNX 

INSYMBOL'X 

IF CURSY.IDENTIFIER thenx 

BEGINX 

SEARCHI* 

IF FOUND THENX 

BEGINX 

IF THISID.IDCLASS»VaR thenx 
BEGINX 

T««TYPETABl[THlSlDiTYPEnX 



00002041 T 0375 

00002042 T 0375 

00002043 T 0375 

00002044 T 0375 

00002045 T 0375 
START OF SEGMENT ********** 
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00002046 


T 


0000 


00002047 


T 


0009 


00002048 


T 


0009 


00002049 


T 


0010 


00002050 


T 


0010 


00002051 


T 


oon 


00002052 


T 


0012 


00002053 


T 


0012 


00002054 


T 


0042 


00002055 


T 


0043 


00002056 


T 


0043 


00002057 


T 


0044 


00002058 


T 


0045 



IF T,FORM«ARRAYS THEN* 
BEGIN* 

iti«t,inxtype;x 

if typetabht i arrtype],form*char then errorc88)jx 

GENID( w V"fl000xTHlSLEVEL+THlSlNDEX,5);x 
PRTC335) * *DESTlNATION POINTER* 

IF THISUVELM AND THI$lEVEL*CUrLEVEL THEN £RR0RC5)>S 
GENC"i"»l#7)j GENINT(TYPETAB2CTHISID»TYPE])I« 
GEN("»"»li7)j GENINT(TYPETAB3[THISID.TYPE3)|X 
END ELSE ERR0R(88)|| 
END ELSE ERR0R(88)IX 
END EL.Se ERRORCDJX 
END ELSE E«R0R(9)il 
INSYMBOLIX 

IF CURSY«COMMA THENX 
BEGINS 

GENC"» H »1»7)1X 

INSYMBOLI E^PRESSIONJ CHECKTYPESC JT.CURTYpE) |X 

IF CURSY*COMMA THEN* 

BEGINS 

GEN("»"»1#7)JX 
INSYMBOLlX 

IF cursy«identifier thenx 

BEGINS 
SEARCH!! 
IF FOUND THENX 
BEGINS 

IF THISIU,IDCLASS«VAR ORX 

THISID,IDCLASS»C0NST AND BOOLEANCTHISID, FORMAL) THENl 
BEGINS 

. VARIABLE? WRiTEEXPRiX 
IF CURTYPEX) THENX 

IF TYPETABUCURTYPE3,F0NM#ALFA THEN ERROR(12)lX 
END ELSE ERR0R(8)lX 
END ELSE ERROR(l)*X 

end else errorc9)ix 

END ELSE BEGIN ERRoR(89jl SkIP(RPAR) ENDU 
E N D ELSE BEGIN ERR0R(89)> SKlpCRPAR) ENDU 
IF CURSY#RPAR THEN BEGI N ERR0R(46)J SkIP(RPAR) ENDJX 
IF CURSY'RPAR THEN InSYmBoLJ* 
END EL5E BEGIN ERROrO); INSYMBOL END;* 
GEN<"» ,, »lt7)i GENINT(CARDCNT); GEN(")".l#7)jX 
END OF PACKlX 



00002059 
00002060 
00002061 
00002062 
00002063 

00002064 
00002065 
00002066 
00002067 
00002068 
00002069 
00002070 
00002071 
00002072 
00002073 
00002074 
00002075 
00002076 
00002077 
00002078 
00002079 
00002080 
00002081 
00002082 
00002083 
00002084 
00002085 
00002086 
00002087 
00002088 
00002069 
00002090 
00002091 
00002092 
00002093 
00002094 
00002095 
00002096 
00002097 
00002098 
00002099 
00002100 
23 IS 465 LONGi 



0046 
0048 
0048 
0049 
0053 

0066 
0069 
0123 
0177 
0178 
0179 
0181 
0182 
0182 
0183 
0184 
0193 
0253 
0253 
0254 
0263 
0263 
0264 
0265 
0294 
0294 
0294 
0296 
0298 
0299 
0378 
0379 
0382 
0383 
0385 
0386 
0388 
0390 
0393 
0394 
0397 
0459 
NEXT SEG 



PRTC336* 



STACK(F+2) 
STACK(F*3) 



X 
X 

PROCEDURE UNPACKIX 
UNPACK 

BEGINX 

INTEGER ITiTJS 

m IT 
m T 



00002101 T 0375 

00002102 T 0375 

00002103 T 0375 

00002104 T 0375 

00002105 T 0375 
START OF SEGMENT ********** 



24 



GEN(*UNPACK(«,7,1)J INSYMB0L** 
IF CURSY«LPAR THEN* 
BEG I NX 

InSymBol* expression** 

IF CURTYPE>0 THEN IF TYpETABUCURTYpEJ,FORM#ALFA THEN ERR0R<17)I* 

if cursy»comma then* 

BEGIN* 

GEN( M »"»l»7>| lN$YMBOl*|* 

IF CURSY«IDENTIFIER ThEN* 
BEGIN* 

SEARCH** 

if found the n * 

BEGIN* 

IF THISID,!DCUASS*VAR ThENX 
BEGIN* 

Ti-TYpETABUTHlSlDiT' 
IF T»FORM*ARRAYs THEl 
BEGIN* 

IT|«T,INXTYPE|* 
IF TYPETABUT.ARRr 
IF THISLEVE^M and 
GENiD("V",lOOOXTHI 

prt(33^) * ^destination pointer* 

genc"»">i»7)j gen: 

GEnC"»"»1»7>* GEN 

End else errorcbsu* 
end else err0rc88)j» 

END ELSE ERROR(l)}* 
END ELSE ERR0RC9)!* 
INSYMbOLI* 

IF CURSY»COMMa thenx 
BEGINI 



YpEJI* 

:nx 



YPE3.FORMj«CHAR THEN ERR0R(88)jX 

THISLEVEL#CURLEVEL THEN ERR0R(5)»I 
SLEVEL+THlSiN0EX,5)JX 

lNT(TYPETAB2tTHISID,TYPEJ)l* 
INT(TYPETAB3ITHISID,TYPE3)I* 



END 



GEN(",", 1,7)1* 

insymbols expression! 
end else begin erroR(89>j 

EnD ELSE BEGIN ERR0R(89)I sk 

IF CURSY#RPAR THEN BEGIn ERR 

IF CURSY»RPAR THEN InSYmBoL* 

END ELSE BEGIN ERRORC3)} INSYM 

GEN("#"»1»7)I GENINT(CARDCNT) 

OF UNPACKj* 



CHECKTYPES(IT#CURTYPE)IX 
SKIP(RPAR) endix 
ipcrpar) end;* 
0rc89)j skip(rpar) endjx 

X 

BOL endj* 

I GENC")",l»7)J* 



00002106 
00002107 
00002108 
00002109 
00002110 
00002111 
00002112 
00002113 
00002114 
00002115 
00002116 
00002117 
00002118 
00002119 
00002120 
00002121 
00002122 
00002123 
00002124 
00002125 
00002126 
00002127 

00002128 
00002129 
00002130 
00002131 
00002132 
00002133 
00002134 
00002135 
00002136 
00002137 
00002138 
00002139 
00002140 
00002141 
00002142 
00002143 
00002144 
00002145 
24 IS 344 LONG* 



0000 
0009 
0010 
0010 
0011 
0015 
0016 
0017 
0026 
0027 
0027 
0057 
0058 
0058 
0059 
0060 
0061 
0063 
0063 
0064 
0068 
0071 

0084 
0138 
0192 
0193 
0194 
0196 
0197 
0197 
0196 
0199 
0208 
0268 
0270 
0272 
0274 
0276 
0278 
0340 
NEXT SEG 



X 
X 

procedure newdispj 

PRT(340) « NEWDlSp 

BEGINX 

INTEGER TUX 



%*** «N£W ,, t"DlSPOSE" 



00002146 T 0375 

00002147 T 0375 

00002148 T 0375 



STACK(F*2) » Ti 



00002149 

00002150 

START OF SEGMENT 



T 0375 
T 0375 

********** 



25 



IF CURNAMEUMOOONEW" THEN GENC "NeWCi 4i 4 ) ELSE* 
BEGIN GENC*DlSP0SE"»7,l)j GeN("< "• 1 * 7 ) ENDI* 

insymboljx 



00002151 T 0000 

00002152 T 0010 

00002153 T 0031 



if cursy*lpar thenx 

BEG?N« 

insymb0l*x 

if cursy»identifier then* 

BEGIN* 
SEARCH** 
IF FOUND THEN* 
BEGIN* 

VARIABLE!* 

IF CURTYPE>0 THEN IF TYPETAB1CCURTYPE J ,FORM«POI NTERS THENX 

BEGINS 

WRITEEXPRI GEN(",",i#7m 
PRT(34l) * *DESTiNATlON POINTER* 

Tll»TYPETABiCCURTYPE3,POINTTYPElI 
Tll«TYPETABlCTi3 t SIIE»* 
IF Tl>i023 THEN ErRoRC86)J* 
GENINTCT1 ) J GENt">"»l»7)J* 
END ELSE ERRQR(81)|X 
END ELSE BEGIN ERROR(l)| INSYMBOL ENDjX 
END ELSE ERROR(9)l* 
WHILE CURSY«cOMMA DOX 
BEGIN INSYMbOLIX 

IF CURSY NEQ IDENTIFIER THEN eRR0RC9)jx 
IF CURSY NEQ KPAR THEN iNSYMBOLJX 
ENDJX 
END ELSE BEGIN ERR0R(58)J S K IP(RPAR) ENDIX 
IF CURSY#RPAR THEN BEGIN ERR0RC46)* SkIP(RPAR) ENDIX 
IF CURSYwRPAR THEN INSYMBoLjX 
END OF NEWDISPIX 



00002J 
000021 
000021 
000021 
000021 
000021 
000021 
000021 
000021 
000021 
000021 
000021 



54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 



25 IS 



00002 
00002 
00002 
00002 
00002 
00002 

00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
234 



166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
LONGt 



0031 
0032 
0032 
0033 
0034 
0034 
0064 
0065 
0065 
0066 
0068 
0069 

0156 
0158 
0159 

0161 
0214 
0215 
0217 
0218 
0220 
0220 
0222 
0224 
0225 
0227 
0229 
0231 
NEXT SEG 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

x * 

x X 

X X 

% part 6\ thf statement parser, x 

x — — % 

X % 

x X 

x X 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

% 

% 

% 

PROCEDURE STATEMENT! FORWA«DJX 
PRTC342) ■ STATEMENT 

X 

PROCEDURE ASSIGNMENTS 
PRT(343) « ASSIGNMENT 

BEGIN* 

INTEGER LEFTTYpEIX 

STACK(F>?) « UCTTYpE 

LABEL ASSIGn»EXJT>X 
IF FOUND THENX 
BEGIN? 

IF THISID,IDCLASS»VAR OR» 

THISID,IDCLASS»CQNST AND BOOLEANC THI S I D, FORMaL ) THENX 

beginx 

VARIABLEI LEFTTYPE**cURTYPEJX 
ASSIGN! IF CURSY#ASSIGNSY THENX 

BEGIN ERR0R(28)! SK I P( ASS I gNSY ) !X 

IF SYMKiNDCCURSyJbTERMINAL THEN GO TO EXIT!* 
ENDIX 

insymbou»x 

IF TYpETABltLEFTTYpE3,STRUCT>0 THENX 
BEGINX 

ERR0R(95)!X 
END ELSE? 
BEGINX 

WRITEEXPR! GEN( f, l»"fB»6)j!K 
PRT(344) = *DESTlNATlON POjNTER* 

IF CHECKOPTlON AnD TYPETABl [LEFTTYPE3 , FORMSCHAR THENX 
CHECKEXpR(TYPETAB2tLEFTTY P E3#TYpETAB3tLEFTTYPE3) ELSEX 
EX P RESSIoN!X 
WRITEEXPR!X 

CHECKTYPESCLEFTTYPE^CURTYPE)!* 
END!X 
END ELSEX 
BEGIN X FUNCTION ASSIGNMENT. 

IF THISLEVEL#CURLEVEL«1 OR THISINDEX^CURFUNC THEN ERR0R(5)!X 
GENlDC w V' , tl000XTHISLEVEL + THISlNDEX»5)! LeFTTYPE»»THISID,TYPE!X 
INSYMBOL! GO TO ASSl G N!X 
ENDIX 
END ELSEX 
BEGINX 

SkIP(ASSIGnSY)!X 

IF CURSY«»ASSIGNSY THEN GO TO ASSIGNS 
ENDiX 



START 



00002183 


T 0375 


00002184 


T 0375 


00002185 


T 0375 


00002186 


T 0375 


00002187 


T 0375 


00002188 


T 0375 


00002189 


F 0375 


00002190 


T 0375 


00002191 


T 0375 


00002192 


r 0375 


00002193 


r 0375 


00002194 " 


r 0375 


00002195 ' 


r 0375 


00002196 • 


r 0375 


00002197 ' 


r 0375 


00002198 ' 


r 0375 


00002199 ' 


r 0375 


00002200 " 


r 0375 


OF SEGMENT » 


1++++*+*++ 


00002201 1 


r oooo 


00002202 ' 


r oooo 


00002203 1 


r oooo 


00002204 1 


r oooo 


00002205 1 


r 0002 


00002206 1 


r 0004 


00002207 1 


r ooos 


00002208 1 


r 0006 


00002209 1 


r 000/ 


00002210 1 


r 0009 


00002211 1 


r ooii 


00002212 1 


r oon 


00002213 1 


' 0011 


00002214 1 


' 0013 


00002215 1 


" 0013 


00002216 1 


r 0014 


00002217 1 


' 0014 


00002218 1 


0015 


00002219 1 


• 0102 


00002220 1 


0104 


00002221 1 


0183 


00002222 1 


0184 


00002223 1 


0262 


00002224 1 


0322 


00002225 1 


0322 


00002226 T 


0322 


00002227 T 


0323 


00002228 I 


0326 


00002229 T 


0340 


00002230 T 


0341 


00002231 T 


0341 


00002232 T 


0341 


00002233 T 


0343 


00002234 T 


0343 


00002235 T 


0345 



26 



EMTlX 

END OF ASSIGNMENT!* 



26 



00002236 T 0345 

00002237 T 0345 

IS 352 LONG* NEXT SEG 



X » 

X 

PROCEDURE COMPSTATlX 
PRT(345) * COMPSTAT 

BEGIN* 

INTEGER BEGINNUMjX 

STACKfF+2) m BESINNUM 

label, statmjx 
x 

BEGtNNuMI»NuMBEGINSI«NuMBeGiNS+1I MARGINC B"#BEG I NNgM) I X 
PRT(3«6) ■ *DESTlNATlON POINTER* 

GEN("BEGIN W »6#3>JX 
DO BEGIN* 

IF CUrSYbSEmICOLON OR CURSY.BEG InSY THEN INSYMBOLI* 
STATMi STATEMENTi* 

GENC"|"»1«7)|X 

IF CURSY»ELSESY THEN BEGIN ERR0RC20)! INSYMBOLI GO STATM ENDI* 

IF SYMKiN D [ C URSY3»lNl T I|U THEN BEGIN eRR0R<21)| GO STATM £Noi* 

end until cursy#semlcolon»* 
if cursy»»endsy then* 

BEGIN ERR0R(24)J SkIP(ENdSy)»* 

if cursy#endsy then begin insymbol* go to statm end;* 

END}* 

GEN(" END«t5#4); MARGINC" E" * BEG I NNUM) I * 
INSYMBOLJ* 
END OF COMPSTAT;* 



00002238 T 0375 

00002239 T 0375 

00002240 T 0375 

00002241 T 0375 

00002242 T 0375 
START OF SEGMENT ********** 



2/ 



27 IS 



00002243 


T 


0000 


00002244 


T 


0000 


00002245 


T 


0000 


00002246 


T 


0020 


00002247 


T 


0029 


00002246 


T 


0029 


00002249 


T 


0031 


00002250 


T 


0032 


00002251 


T 


0041 


00002252 


T 


0047 


00002253 


T 


0049 


00002254 


T 


0051 


00002255 


T 


0051 


00002256 


T 


0053 


00002257 


T 


0056 


00002258 


T 


0056 


00002259 


T 


0083 


00002260 


T 


0083 


88 LONC 


• f 


NEXT SEG 



X 

X 

PROCEDURE IFSTATIX 
PRT { 347$ * IFSTAT 

BEGIN* 

LABEL EXITIX 



00002261 T 0375 

00002262 T 0375 

00002263 T 0375 



PRTC350J 



GENC"IF"»3»6)J* 
INSYMBOLI 800LEXPRIX 
*DESfINATlON POINTER* 

IF cURSY*THENSY thenx 
BEGIN IF CURTYPE>0 THEN ERR©R(27)|X 
SKiP(THENSY)JX 

if cursy#thensy then* 

begin if curtypeno then err0r(27)ix 

IF SYmKIND£CUrS¥J»TERMINAL THEN GO To EXITlX 
END| END|X 
GENC THEN"»6»3)|X 



00002264 


T 


0375 


00002265 


T 


0375 


START OF SEGMENT 


********** 


00002266 


T 


0000 


00002267 


T 


0009 


00002268 


T 


0112 


00002269 


T 


0113 


00002270 


T 


0115 


00002271 


T 


0116 


00002272 


T 


0117 


00002273 


T 


0119 


00002274 


T 


0121 


00002275 


T 


0121 



28 



INSYMBOlj STATEMENT)* 

IF cursy»elsesy THEN* 

BEGIN GEN(" ELSE".6,3}J 
EXlTIJ 
END OF IFSTATJX 



INSyMBOU; STATEMENT END** 



00002276 
00002277 
00002278 
00002279 
00002280 



28 IS 146 LONG. 



0130 
0131 
0132 
0142 
0143 
NEXT SEG 



% 

% 

PROCEDURE CASESTAT1* 
PRTC351) ■ CASESTAT 

BEGlNX 

DEFINE CASEhASh(N)»cN),[38»»9J MOD MAXCASeS#JX 



STACK(F+2) m CASETAB 



INTEGER ARRAY CASETABI Qt MA X CASES3 I* 



INTEGER CASENUM»CASETYpE«nCaSEUABS»TEMPVARNUM»CONVaL»CONTYpE»C»T|* 
NUM 
TYPE 
ELABS 
VARNUM 
AL 
TYPE 



STACK(F+3) ■ CASE 
STACK(F*4) » CASE 
STACK(F*5) * NCIS 
STACK(F+6) « TEMP 
STACK<F+7) * CONV 
STACK(F+iO) * CON 
STACK(F+11) * C 
STACK(F+12) « T 

STACK(F+13) ■ Z|R 
STACK(F*14) m FIR 

% 

CAS F NUMI«NUMCASeSI»NUMcaSe;S + 1I MARGINCCB^'CASENUM))* 
PRT(352> * *DESTinATiqn POINTER* 



00002281 T 0375 

00002282 T 0375 

00002283 T 0375 

00002284 T 0375 

00002285 T 0375 
START OF SEGMENT ********** 

00002286 T 0000 

00002287 T 0001 



29 



BOOLEAN 
OLAB 
ST 



ZEROLAB#FIRSTj* 



TEMpVARNUM«*NU 
IF TEMPVARNUM> 
GEN("BEGIN"»6» 
INSYMbOLi EXP 
GEN( w |"il#7); 
IF TYPETABtCCA 
BEGIN eRR0R(17 
IF CURSY^OFSY 
BEGIN IF CASET 
SKIP(0FS 
IF CUrSY 
IF CASET 
END ELSE INSYM 
DO BEGIN* 

WHILE CURSY* 
FIR$TI«TRUEJ 
IF CU«SY#eNd 

begins; 

GEN("lF«#3 
DO BEGINS 
IF FIRST T 

CONSTANT 
IF CONTY 



mtempsi»numtemps+u* 
maxtemps then err0rc16)!* 
3)1 genid("t"#tempvarnum»2)j 

RESSION;* 

casetypei«curtypeix 
setyHeJ. formulating then* 
)i casetyPe«»6 enojx 
thenx 
ype>0 then err0r(18)ix 

Y)|X 

■OFSY THEN INSYMBoL ELSE* 

YPE*0 THEN ERR0RC18)!* 

BOLl* 

SEMICOLON DO INSYMBOLI* 

% 

SY THEN* 



,6m 

HEN FlR5T|#FAl,SE ELSE InSYMBOLJ* 

CCONVAL»CONTYpE)lX 

PE>0 THEN* 



GEN<"t«"»2»6)J* 



00002288 T 0001 



00002289 T 

00002290 T 



00002291 
00002292 
00002293 
00002294 
00002295 
00002296 
00002297 
00002298 
00002299 
00002300 
00002301 
00002302 
00002303 
00002304 

00002305 
00002306 
00002307 
00002308 
00002309 
00002310 
00002311 
00002312 
00002313 



0001 
OOOi 

0021 
0023 
0025 
0055 
0056 
0066 
0067 
0069 
0070 
0073 
0073 
0075 
0080 
0081 
0081 
0083 
0084 
0084 
0085 
0094 
0095 
0098 
0186 



BEGINS) 

if casetype*0 then casetype » 'cqntype elsex 
checktypeS(caseType#contypeJ»x 

GENiD(-T«,TEMPVARNUHt2)* GENc "*" • 1 * 7 ) I GENI NT( CONV AL > J X 
NCASEuABStwNCASELABS+lJX 

IF nCaseiabs<haxcases THEnX 

BEGIN* 

IF CONVAL«0 THEN* 

IF ZEROLAB THeN ERR0RC31) ELSE ZEROLAB»»TRUE ELSEX 
BEGIN* 

Tl*CASEHASH(CONvAl-)l* 

FOR Cl»CASETABtT3 WhILe Cj»CONvaL aNO c*o do* 

ti.if uo then maxcases else t-iix 

IF C*0 THEN ERRoROl) ELSE CASETAB[ T ] I .CONVAL* X 
ENDlX 
END ELSE IF NCASElABS«MAXCASES THEN ERRORC30);X 
IF CUrSY«COMMA THEN GENC 0R"»4»5)J* 
ENDjX 

END UNTIL CURSY*COMMA|X 

GENC THEN"»6»3)|X 

IF CURSY^COLON THEN BEGIN ERR0RC26)) SKIP(COLON) ENDjX 

IF CURSY-COLON THEN INSVMbGLIX 

statement** 

IF CURSY#SEMKOLON ANd CUR5Y#ENDSY THEN* 

BEGIN ERR0R{21)» Sk jP ( S E M I COLON ) 1*01% 
END)* 
IF CURSYbSEMICOLON THEN GENC ELSE", 6. 3 ) J X 

end until cursy#semicoloni* 

IF CURSY#ENDSY THEN BEGIN ErR0R(24)I SKIPCENDSY) ENDlX 
GENC END"»5»4); MARGINCCE W »CASENUM)|X 
NUMTEMPSlwNUMTEMPS-llX 
INSYMBOLlX 
END OF CASESTATjX 



29 IS 



00002314 T 

00002315 T 

00002316 T 

00002317 T 

00002318 T 

00002319 T 

00002320 T 

00002321 T 

00002322 T 

00002323 T 

00002324 T 

00002325 T 

00002326 T 

00002327 T 

00002328 T 

00002329 T 

00002330 T 

00002331 T 

00002332 T 

00002333 T 

00002334 T 

00002335 T 

00002336 T 

00002337 T 

00002338 T 

00002339 T 

00002340 T 

00002341 T 

00002342 T 

00002343 T 

00002344 T 

00002345 T 

00002346 T 
423 LONGt 



0186 
0187 
0189 
0249 

0313 
0314 
0315 
0315 
0316 
0319 
0320 
0322 
0326 
0329 

0333 
0333 

0336 
0346 
0346 
0347 
0356 
0359 
0361 
0361 
0363 
0365 
0365 
0375 
0376 
0379 
0406 
0408 
0406 
NEXT SEG 



% 
% 

PROCEDURE WHILESTATIX 
PRTC353) « WHILESTAT 

BEGINX 

label statm,exitix 

gencwhile"»6»3)ix 
insymboli boolexprix 

PRT(354) • *DESTiNATlON POINTER* 

IF CURSY#DOSY THENX 

BEGIN IF CURTYPE>0 THEN ErRoR(19)IX 
SKIPCD0SY)IX 
IF CURSY#DOSY THEN* 
BEGIN IF CURTYPE"0 THEN ERR0RU9>jX 

GO TO IF SYMKIN0[CURSYJ*IN1TIAL THEN STATM ELSE EXjTlX 



00002347 T 0375 

00002348 T 0375 

00002349 T 0375 



PRTC355) 
PRTC356) 



STATM 
EXIT 



00002350 
00002351 
START OF SEGMENT 
00002352 
00002353 

00002354 
00002355 
00002356 
00002357 
00002358 
00002359 



T 0375 
T 0375 

********** 

T 0000 
T 0009 



30 



0112 
0113 
0115 
0116 
0117 
0119 



F.NDI ENDlX 



00002360 T 0125 



GEN<» DO", 4, 5)11 

INSyMBOUX 
STATMI STATEMENTS 
EXITIX 
END OF WHILESTATIX 



00002361 
00002362 
00002363 
00002364 
00002365 



30 IS 142 lONGi 



0125 
0134 
0134 
0135 
0136 
NEXT SEG 



X 
X 

PROCEDURE REPEATSTATIX 
PRTC35H m REPEATSTAT 

BEGINS 

INTEGER REPNUMJX 



STACK(F*2) ■ REPNUM 



X 



LABEL NEWTRYIX 



RePNUMIwNUMRePSIoNUMRePS+iU 

marginc r*,repnum);x 

PRT(360) * *DESflNATlON POINTER* 

GEN( W 00 ,, »3»6)J GEN( "BEGIN"* 6*3) IX 
Do BEGINX 

insymbolix 

NEWTRYi STATEMENTS 

GENC|"*1» 7)t% 

IF CURSY*ELSESY THEN BEGIN ERR0RC20) I I NSYMBOLj GO NEWTRY ENDlX 
IF SYMKiNd(CURSY3»INItUL THEN BEGIN ERR0R<21)| GO N£WTRY ENDlX 
END UNTIL CURSYi*SEMlCOLON|X 
IF CURSYi«UNTlLSY thenx 

begtnx 

ERR0R(22>*X 

WHILE CURSYHUNTILSY AND SYMK I ND[CURSY ]# I N I Tl AL DOX 

BEGIN INSYMBOLI Sk IPCUNTI LSY) EnDIX 

IF CURSYi'UNTILSY THEN Go TO NENTrYjX 
ENDjX 

GENC" END H »5#4)| GEN( "UNT I L w »6, 3) | MARGINC" U"»REPNUM) J X 
IN$yMbOL» bOOLEXPR|X 
END Of REPEATSTATIX 



00002366 T 0375 

00002367 T 0375 

00002368 T 0375 

00002369 T 0375 

00002370 T 0375 
START OF SEGMENT ********** 

00002371 T 0000 

00002372 T 0000 

00002373 T 0000 

00002374 T 0001 



31 



31 IS 



00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
00002 
211 



375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391' 
392 
LONG* 



0020 
0038 
0038 
0036 
0039 
0048 
0055 
0057 
0059 
0059 
0060 
0061 
0063 
0065 
0066 
0066 
0102 
0206 
NEXT SEG 



X 
X 

PROCEDURE FORSTATjX 
PRT(36l) * FORSlAT 

BEGINX 

INTEGER VARTYPE»VARNUM,LLlM,uLlM|X 

STACK(F+2) m VARTYPE 

STACK(F+3) • VARNUM 

STACK{F + 4) » UIM 

STACKCF+5) « ULIM 



00002393 T 0375 

00002394 T 0375 

00002395 T 0375 

00002396 T 0375 

00002397 T 0375 
START Of SEGMENT ********** 



32 



STAC*(F*6) * DO«(N 



% 



BOOLEAN OOWNJX 
l-ABpL STATMjX 



00002398 T 0000 



PRK362) 



GEN("BEGlN",6,3)lX 

insyMboljx 

IF CURSY. IDENTIFIER THENX 
BEGlNX 
SEARCHIX 
IF FOUND THEN* 
BEGIN* 

VARNUMt«1000xTHISLEVEl + THISINDEX|X 
IF THISIDiIDCLASS«VAR OR* 

THISID|IDCLASS*C0NST AND B00UEAN(THIS I D. FORMAL) THENX 
BEGINX 

IF THISLeVeLM AND THISLeVE»-<CURL E VeL THEN eRR0R(5);X 

if thlsueveu>curlevf^ then e««0r(83)jx 

vartypei«thiSio,type»i 

if typetabltvartype),formschar thenx 

BEGINX 

LLIMI«TYPETAB2[VArTYPEJ| ULlMI*TYpETAB3[VARTYPE3|X 
END EUSE BEGIN ERR0R<l2)f VARTYPEj»0 END** 
END ELSE ERR0RC8JIX 
END ELSE ERROR(l)l» 
END ELSE ERR0R(9))X 
INSyMbOLiX 

IF CURSY#ASSIGNSY THENX 
BEGIN E«R0R(28)IX 

SKlP(ASSiGNSY)»X 

if cursy.assignsy then insymbol elsex 

IF SYmKJnD[CUrSY3*I n ITIAL THEN GO To STATMlX 
END ELSE INSYMBOL** 

GENID( W V.VARNUM»5)» GEN( n *"il»7)J* 
•DESTINATION POINTER* 

IF cHFCKOPTION THEN CHeCKe*PRCLLI M» ULI M) ELSE EXPRESSIONS 

WRITEEXPR)X 

GEN( W |"»1»7)|X 

IF VARTYPE»0 THEN VARTYPEI^CURTYPE ELSE CHECKT YPF.SC VARTYPEt CURT YPE ) I 

NUMTEMPSI»NUMTEMPS+U IF NuMTEMPS>MAXTEMPS THEN ERR0R(16)IX 

IF cURSYnTOSY ThEN 1NSYMB0L ELSeX 

if cursy»downtosy then begin downi»truej insymbol end elsex 

BEGIN IF CURTYPE>0 THEN ErRqRC23)JI 

SKIP(T0SY)»X 

IF CUrSY»TOSY THEN INSYMBOL ELSE* 

BEGIN IF CURTYPE"0 THIN ERR0RC23)|X 

IF SYMKIND[CURSY3«INITIAL THEN GO TO STATMJX 
ENDf ENDS* 

GENlD( w T ,, »NuMTEMPSi2); GrN( K * w t 1 1 7) I X 

IF cHEC K O p TlON THEN CHECKfXiRCLLlM.UL iM ) E LSe EXPRESSION^ 
WRlTEEXPRlX 
GEN{"l",i,7)JX 

IF VARTYPEwO THEN VARTYPE |»CURTYPE ELSE CHECKTYPES( VARTYPE* CURTYPE ) I 
IF cURSYi«DOSY THENX 
BEGIN IF CU R TYPE>0 THE N ErR 8 R<19)I* 

SKIPCD0SY)|X 

IF CURSY*DOSY THEN INSYMBOL ELSE* 

IF CURTYPE-0 THEN ERR0RU9)!* 



00002399 
00002400 
00002401 
00002402 
00002403 
00002404 
00002405 
00002406 
00002407 
00002408 
00002409 
00002410 
00002411 
00002412 
00002413 
00002414 
00002415 
00002416 
00002417 
00002418 
00002419 
00002420 
00002421 
00002422 
00002423 
00002424 
00002425 
00002426 
00002427 
00002428 
00002429 

00002430 
00002431 
00002432 
00002433 
00002434 
00002435 
00002436 
00002437 
00002438 
00002439 
00002440 
00002441 
00002442 
00002443 
00002444 
00002445 
00002446 
00002447 
00002448 
00002449 
00002450 
00002451 
00002452 



0000 
0000 
0000 
0009 
0009 
0010 
0010 
0040 
0041 
0041 
0043 
0044 
0047 
0047 
0050 
0052 
0053 
0055 
0055 
0057 
0059 
0061 
0062 
0063 
0064 
0064 
0066 
0066 
0068 
0070 
0071 

0092 
0170 
0246 
0257 
0319 
0322 
0324 
0327 
0329 
0330 
0332 
0334 
0336 
0336 
0357 
0434 
0512 
0521 
0583 
0583 
0586 
0587 
0588 



END ELSE INSYM B 0L|X 

GEN( m fOR"»4,5)j 6ENlD( H V"iVARNuM#5)j GEN("*"# 1 » 7 ) ; X 

GENiDC , V , fVARNuM,5)» geN(" ",1 , 7 ) J X 

IF DOWN THEN GEN("D0WNt0"„7,2) ELSE GEN("UPTO», 5, 4 ) I X 

GENiD( ,, T",NUMTEMPS»2>l GEN(" D0",4»5)*X 
STATMI STATEMENT!* 

GEN(" END"»5»4)JX 

NUMTEMPS|*NUMTEMPS-1I* 
END OF FORvSTATj* 



00002453 


T 


0591 


00002454 


T 


0592 


00002455 


T 


0622 


00002456 


T 


0643 


00002457 


T 


0665 


00002456 


T 


0686 


00002459 


T 


0666 


00002460 


T 


0695 


00002461 


T 


0696 



32 IS 703 LONG# NEXT SEG 



X 
X 

PROCEDURE GOTOSTATIX 
PRT(3639 * Q0T03TAT 

BEGIN! 

INTEGER IJ* 

STACK(F*2) » I 

iNSYMBOLl* 

IF CURSY*INTC0NST THEN* 

BEGIN II«NUMLABS|X 

WHILE 1*1 AND L-ABTABt UttABVAL^CURVAU 00 l!»I-i>* 
IF I»0 THEN ERR0R(15)|X 
GENC , gO w »3.6); GENiD( w L%CURVAL#4m 
PRT(364) m *DESTiNATlON POiNTeR* 

insymboux 
end euse errorciomx 
end of gotostatix 



00002462 T 0375 

00002463 T 0375 

00002464 T 0375 

00002465 T 0375 

00002466 T 0375 
START OF SEGMENT ********** 



33 



00002467 


T 


0000 


00002468 


T 


0000 


00002469 


T 


0001 


00002470 


T 


0002 


00002471 


T 


0007 


00002472 


T 


0009 



00002473 T 0030 

00002474 T 0031 

00002475 T 0033 

33 IS 36 LONG. NEXT SEG 



X 

X 

PROCEDURE WITHSTATI* 
PRTC365) m WITHSTAT 

BEGlNX 

INTEGER STARTLEVELiVERYFlRSTWjTHSYMMlX 

STACK(F+2) • ST»rTuEVEl 
STACK(F*3) * veryfirstwuhsym 

STACK(F*4) * I 



00002476 T 0375 

00002477 T 0375 

00002478 T 0375 

00002479 T 0375 

00002480 T 0375 
START OF SEGMENT ********** 



34 



STAC*(F«5) 



REAL 01* 

STARTLEVELl»TOPLEVEL» VERYFIRSTW ITHSYM|«NWITHSYMS| X 
DO REGINX 

insymboljx 

IF CURSY«IDENTIFIER THENX 

beginx 
searchix 
if found thenx 
begin* 



00002481 


T 


0000 


00002482 


T 


0000 


00002483 


T 


0001 


00002484 


T 


0002 


00002485 


T 


0002 


00002486 


T 


0003 


00002487 


T 


0003 


00002488 


T 


0032 


00002489 


T 


0032 



B 

■PR 



END 



IF THISIDiIDCLASS»VaR THEN* 
BEGIN* 

variable!* 

if curtype>o then* 

if typetabltcurtypej,fgrm#record then err0r(98)jx 

IF SIMPL.EVARIABUE TheNX 

BEGIN PUTSYM("|;»}j j NS IDEBRACKETS l-TRUE END»X 

IF TOPLEVEU<MAXLEVEL THENX 

BEGINS 

topueveli«toplevel,+iix 

D t NAMETAB|»TYpETABl[CURTYpEj,RECTABjS 
D,RECTYpE|*CURTYP|l» 
D,NUMPNTRSINWITHI«NUMP0INTERS}X 
D,FlRSTWlTHSYM|«NWITHSYMSiX 
D,BRACKETSINWIThI*REALC INS IDEBRACKETS) J X 

if nwjthsyms+numsyms>maxwithsyms then eRR0R(63) eLsex 

FOR il*l STEP 1 UNTIL NUMSYMS DOX 

beginx 

WiThTABcNWiThSYmSJIpSYmTABCIJI* 
NWITHSYmS|sN«IThSYmS+iIX 

endjx 

D,UASTWITHSYM|«nWITHSYMS-1I* 

displayitopleveUi-djx 

END ELSE ERR0RC84)|X 
END ELSE BEGIN ERROR(8)| insyhbol endix 
end else begin eRRorcDj iNsymbol endix 

END ELSE BEGIN E«RQR(9)> jNSYMBOL ENDIX 

numsymsi.oi* 
numpointers fp oix 
end until cursy#commajx 
if cursy#dosy thenx 

BEGIN ERR0RU9)* SKlP(DOSYjjX 

IF CUrSYhDOSY THEN insymbolix 
END ELSE INSYMBOLjX 
STATEMENTjX 

toplevellwstartlevel! nwlthsymsjbveryfirstwithsymix 
of withstaTjx 



34 IS 



00002490 
00002491 
00002492 
00002493 
00002494 
00002495 
00002496 
00002497 
00002496 
00002499 
00002500 
00002501 
00002502 
00002503 
00002504 
00002505 
00002506 
00002507 
00002508 
00002509 
00002510 
00002511 
00002512 
00002513 
00002514 
00002515 
00002516 
00002517 
00002518 
00002519 
00002520 
00002521 
00002522 
00002523 
00002524 
00002525 
00002526 
93 LONG* 



0032 
0034 
0034 
0035 
0035 
0039 
0039 
0048 
0048 
0049 
0050 
0053 
0054 
0056 
0058 
0060 
0062 
0064 
0064 
0065 
0066 
0069 
0071 
0072 
0073 
0075 
0077 
0079 
0079 
0080 
0081 
0082 
0084 
0086 
0087 
0087 
0089 
NEXT SEG 



STACK(F*2) » I 



X 

X 

PROCEDURE STATEMENTS 
BEGIN* 

INTEGER IJX 



LABEL LABFOUNDJX 



IF CURSY»lNTCONST THEN 
BEGlNX 

FOR IUFIRSTLAB STEP l UNTIL NUMLABS DOX 

IF LABTABflKLABVAL-CURVAL THENX 

BEGIN IF LABTABU],LABDEF*1 THEN ERR0RC3DIX 
LABTABCU,LABDEF|«ljX 



X *** LABELED STATEMENT *** 



00002527 T 0375 

00002528 T 0375 

00002529 T 0375 

00002530 T 0375 

00002531 T 0375 
START OF SEGMENT ***♦***« 

00002532 T 0000 

00002533 T 0000 

00002534 T 0000 

00002535 T 0000 

00002536 T OOOl 

00002537 T 0002 

00002538 T 0003 

00002539 T 0006 



35 



GO TO LABFOUNDl* 
ENDI* 
ERROR(15)|X 

LABFOuNpl GENlD("L",CURVAL,4)i GEN(" I "« 1 , 7) I X 
PRT(366) m *DE$TlNATlON POINTER* 

insyhbolix 

if cursy#colon theni 

begin err0r(26)i» 

SKIP(COLON)! IF CUnSYsCOLON THEN INSYmBol'* 

end else insymbolj* 

END|X 



X 



comment ♦** 



START OF STATE M |NT 
THEN* 



*** ;* 



if cursy«ioentifieR 

BEGIN* 
SeARCHU 
IF FOUND THEN* 

Or f i m % 

if thisid.idclasspvar or* 
thisid t ioclass»const and 
thisid,idcuass«func the 

IF THISIOtlDCUASS»PROc THE 
BEGIN* 

IF THISlEVEL»0 THEN 
BEGIN* 

IF CURNaMe1» w 50WRiTe" 
IF CURNaMeU^WRITEL" 

CURNAM E 2« ,, OOOO0ON w 
IF CURNAME1«"400ReAD" 
IF CURNAME1**6READLN" 
IF CURNAME1*"400PAGE" 
IF CUrnAME1*»3O0OGET" 
IF CURNAMEi^aoOOPUT" 
IF CURNaMe1»"50RESET" 
IF CURNAMEl*VREWRJT" 

CURNaMeZp^OOOOoOe" 
IF CURNaMe1« , '3000nEW" 
IF CURNAMElw"7DlSP0s H 

CURNAMe2« w 000000e h 
IF CURNAMElB w 400PAC(f" 
IF CURnAmE1» w 6UNPACk" 

end else passparamsj* 

WrITEEXpri* 

end else begin err0rcl3)| 
end else begin errorcdj ass 
end of identifier else* 
if cursy»beginsy then comp$ta 
if cursy»ifsy then 
if cursy-casesy then 
if cuRsy.whilesy Then 
if cursy.repeatsy then 
if cursy»forsy then 

IF cUrSY»WITHSY THEN 
CURSY«GOTOSY THEN 



booleancthi 
n assignment 

NX 



SID, FORMAL) 
ELSE* 



OR* 



* *** INTRINSIC PROCEDURE *** 



THEN 
AND* 

then 
Then 
then 
then 
then 
then 
then 

AND* 
THEN 

then 

AND* 

Then 
then 
then 



HWRITE(FALSE) 



PWRlTEC 
PREADCF 
PREAOCT 
FILEHAN 
F IlEHAn 

Mlehan 

FILEHAN 



TRUE) 

ALSE) 

RUE) 

DLING(5) 

DLINGC2) 

DLING(I) 

DLINGC3) 



FIUEHANDLING(A) 
NEWDISP 

NEWDlSP 
PACK 

unpack 



ELSE* 

ELSE* 
ELSE* 
ELSEX 
ELSE* 
ElSEX 
ELSEX 
ELSEX 

ELSE* 
ELSEX 

ELSE* 
ELSEX 

else errorcox* 



SKIPC99) END 
IGNMENT ENDI 



;* 

* 



IF 

IF SYMKlNDtCURSYl#TERMINAL 
BEGIN ERRORU3)J INSYMfiOLj 



IFSTaT 
CASESTA 

whtLeST 

REPEATS 
FORSTAT 
KITHSTA 
GOTOSTA 
?HE 
SKI 



T 

AT 

TAT 



ELSE* 
ELSE* 
ELSE* 
ELSE* 
ELSE* 
ELSE* 
ELSEX 
ELSE* 



T 

T 

NX 

P(SEMICOLON) 



ENDI* 



00002540 ' 


r 0009 


00002541 " 


r 0009 


00002542 ' 


r 0012 


00002543 ' 


r 0012 


00002544 ' 


r 0034 


00002545 " 


r 0034 


00002546 1 


r 0035 


00002547 " 


r 0036 


00002548 ' 


r 0039 


00002549 ' 


r 0040 


00002550 ' 


r 0040 


00002551 1 


r 0040 


00002552 i 


r 0040 


00002553 1 


r 0040 


00002554 1 


r 0040 


00002555 ' 


r 0041 


00002556 ' 


r 0070 


00002557 ' 


r 0070 


00002558 1 


r 0070 


00002559 1 


r 0072 


00002560 1 


r 0074 


00002561 1 


r 0077 


00002562 1 


r 0078 


00002563 1 


r 0079 


00002564 1 


r 0080 


00002565 1 


r ooeo 


00002566 1 


r 0082 


00002567 1 


r 0064 


00002568 1 


r ooe? 


00002569 1 


r oo9i 


00002570 1 


r 0095 


00002571 1 


r 0099 


00002572 1 


r 0103 


00002573 1 


r 0107 


00002574 l 


r oin 


00002575 1 


r oin 


00002576 1 


r oii6 


00002577 1 


r oii9 


00002578 1 


r 0122 


00002579 1 


r 0124 


00002580 1 


r 0128 


00002581 1 


r 0135 


00002582 1 


r 0136 


00002583 1 


r 0215 


00002584 1 


" 0217 


00002585 1 


r 0219 


00002586 1 


r 0219 


00002587 1 


' 0221 


00002588 1 


r 0223 


00002589 1 


p 0226 


00002590 1 


' 0228 


00002591 1 


r 0230 


00002592 1 


' 0232 


00002593 1 


r 0235 


00002594 1 


0237 


00002595 1 


' 0238 



E N D OF STATE M E N TIX 00002596 T 0241 

35 IS 244 LONG. NEXT SEG 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

x X 

* X 

X X 

X PART 7» TYPE DECURATI QNSt X 

X X 

x X 

x X 

x X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 
X 

REAL VALXl»VALX2)X 
PRTC367) m VAlXl 
PRTC370) m VALX8 

INTEGER TYPEXltTYPEX2|X 
PRT(37i) m TYPEX1 
PRTC372) m TYPEX2 

BOOLEAN PACKED»X 
PRT(373» * PACKftD 

X 

PROCEDURE nELl>LlST(RECTAB»FlRSTAODR,t,A5)TAODR)lX 
PRTC374) » FIELOL1ST 

VALUE RECTABtFlRSTADDRlX 

INTEGER RECTaBiFIRSTADORiLaSTaDDRJX 

FORWAROlX 

X 

DEFINE SUBRANGE* X*** SUBRANGE DECLARATION *** 

BEGIN X**************************** 

CONST ANT(VALXl,TYPEXl>IX 

IF TYPETABi[TYPEXlJ,FORM>CHAR ThEN ERRORUOJX 

IF CURSY#DOUBLEDOT THEN ErR0RC53>JX 

INSYMBOLIX 

C0NSTANT(VALX2»TYPEX2)|X 

IF TYPEXl>0 AND TYPEX2>0 THENX 

IF TYPEX1#TYPEX2 THEN ERRORCH) ELS£X 
IF VALX1>VALX2 THEN ERR0R(54)*X 

TllsTYPETABltTYPEXn.FORMi JF T1*SYMB0LIC THEN Tl I "SUBTYPE J X 

NEWTYPEI TTYPEI»TYPEINDEX«X 

Tl,SlZEl"TSiZEtalJ T 1 , STRUcT UOJ T 1 ,Ma iNTYPe t«TYPEX 1 IX 

TYPETABi[TYPElNDEX]l»TUX 

TYPETAB2[TYPElNDEX3**VALXil T YPETAB3C TYPE INDEX] I »VALX2IX 
END OF SUBRANGEfJX 
X 
X 

PROCEDURE TYPEDECL(TTYPE»TS!ZE>lX 
PRT(375) « TYPEBECL 

INTEGER TTYPEtTSIZElX 
BEGIN! 

PROCEDURE TYPERR(ERRNUMtTTYPE»TSlZE)iX 



PRT(376) m TYPERR 



START 



VALUE ERRNUM1X 

INTEGER ERRNUM.TTYPEtlSlZE'X 

BEGIN ERROR(ERRNUM)JX 

TTYPEtnTSlZEI»0;x 
ENDIX 



00002596 
00002599 
00002600 
00002601 
00002602 
00002603 
00002604 
00002605 
00002606 
00002607 
00002606 
00002609 
00002610 



T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 



0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 



00002611 T 0375 



00002612 T 0375 



00002613 


T 


0375 


00002614 


T 


0375 


00002615 


T 


0375 


00002616 


T 


0375 


00002617 


T 


0375 


00002616 


T 


0375 


00002619 


T 


0375 


00002620 


T 


0375 


00002621 


T 


0375 


00002622 


T 


0375 


00002623 


T 


0375 


00002624 


T 


0375 


00002625 


T 


0375 


00002626 


T 


0375 


00002627 


T 


0375 


00002628 


T 


0375 


00002629 


T 


0375 


00002630 


T 


0375 


00002631 


T 


0375 


00002632 


T 


0375 


00002633 


T 


0375 


00002634 


T 


0375 


00002635 


T 


0375 


00002636 


T 


0375 


00002637 


T 


0375 


00002636 


T 


0375 


00002639 


T 


0375 


00002640 


T 


0375 


OF SEGMENT 


********** 


00002641 


T 


0000 


00002642 


T 


0000 


00002643 


T 


0000 


00002644 


T 


0000 


00002645 


T 


0002 



36 



integer Re:cinx,arrstkuct,tx,sx,ti.t2»t3.t,nix 

STACK(F*2) m REClNX 
STACK(F+3) * ARKSTRUCT 
STACK(F44) m TX 
STACK(F+5> * SX 
STACK(F*6> * Ti 
STACK(F*7> • T2 
STACK(F*iO) * TJ 
STACK(F + U) * T 
STACK(F+12) ■ N 



00002646 T 0002 

00002647 T 0002 



STACK(F*13) * FIRST 

X 



BOOLEAN FJRSTIX 



**** SIMPLE TYPE DECLARATION *** 
2******************************* 



STACK(F*14) 



PACKEDI»FALSEI* 

IF cURSYsIDENTlFIER THEN 

BEGIN 

SeARCHJX 

IF FOUND THEN* 

BEGIN! 

IF Thi$iD,IDCLASSsTYPeS THEN* 
BEGIN* 

TTYPElsTHI SID, TYPE* TSI ZE « »TYPETAB 1 1 TTYPE 3 , S I ZE I % 

JNSYMBOLI* 

END ELSE IF THISJD, IDcLASS»CONST THEN SUBRANGES 

ELSE TYPERR(7#TTYPE»TSlZEm 
♦DISPLAY POINTER* 

END ELSE BEGIN TYPERR( 1 ,T|YPE. TSlZE) I INSYMBOL END** 
END ELSE* 

IF CURSYSCHARCONST OR CURsY*PLUS OR CURSY»MlNUS THEN SUBRANGE ELSE* 
IF CURSY*LPAR THEN* 
BEGIN* 

N|»Ol* 

NeWTYPEJ T3,IDCLASS|«C0NST» T3,TYPEl»TYPEINDEXI* 
DO BEGIN* 

INSYMBOLIX 

IF CURSY«IDENTIFIER ThENX 

BEGIN* 

NEWNAMECCURNAMEl,CURNAME2»CURUEVEL)l* 
T3,lNF0lnNI NAMETAB3[CURLEVEL»THISINDEX]|«T3I* 
NI»N+JI INSYMBOL** 
END ELSE ERR0R(9)I* 

END UNTIL CURSY#COMMAJ* 

IF CURSY^RPAR THEN BEGIN ERR0R(46)» SKlP(RPAR) END** 

TiUSYMBOLICI Tl.STRUCTUOi* 

Tl,S!ZEf*TSlZEUll TTYPEI«TYPEINDEXIX 
TYPETABltTYPElNDEX3«»iTljX 

TYPETAB2rTYPEINDEXJU0l TYPETAB3C TYPE I NDEXJ |»N-1 1 % 
IF CURSY«RPAR THEN INSYmBOL** 
END ELSE* 



* 



00002648 T 0002 



IF CURSY«ARROW THEN 
BEGIN 



**** POINTER DECLARATION *** 
**************************** 



00002649 


T 


0002 


00002650 


T 


0002 


00002651 


T 


0003 


00002652 


T 


0004 


00002653 


T 


0005 


00002654 


T 


0034 


00002655 


T 


0034 


00002656 


T 


0034 


00002657 


T 


0036 


00002656 


T 


0036 


00002659 


T 


0039 


00002660 


T 


0040 


00002661 


T 


0249 


00002662 


T 


0251 


00002663 


T 


0255 


00002664 


T 


0255 


00002665 


T 


0466 


00002666 


T 


0467 


00002667 


T 


0467 


00002668 


T 


0468 


00002669 


T 


0477 


00002670 


T 


0477 


00002671 


T 


0477 


00002672 


T 


0478 


00002673 


T 


0478 


00002674 


T 


0501 


00002675 


T 


0505 


00002676 


T 


0507 


00002677 


T 


0508 


00002678 


T 


0509 


00002679 


T 


0512 


00002680 


T 


0514 


00002681 


T 


0518 


00002682 


T 


0519 


00002683 


T 


0522 


00002684 


T 


0524 


00002685 


T 


0524 


00002686 


T 


0524 


00002687 


T 


0525 



INSYMBOLI* 

IF cursy»identifieR THEN* 
begin* 

NEWTYPEJ TTYPEI«TyPEiNbeXI Ti««POlNTERSU 

Tl.SlZEI-TSlZEUU T i, STRUCT I. 01 X 

TYPETABl[TYPElNDEXjt«TUX 

SEARCH** 

IF FOUND THEN* 

BEGIN* 

if thisid.idclassbtypes then* 
typetab1ctypeindex] ( p0inttypei«thisid,type else* 

TYPeRR(7.TTYPE»TSIZe)I* 
END ELSE* 
BEGIN* 

IF NUMPNTRS<MAXPNTR$ THEN NUMPNTRSl.NUMPNTRS+1 EUSE ERR0R(52); 
PNTRTABltNUMPNTRS3l«CuRNAMEll PNTRTAB2C NUMPNTRS J I .CURNAME2I X 
PNTRTAB3[NUMPNTRS]I«TYPEIN0EXI* 
ENDIX 

INSYMBOLI* 
END ELSE TYPERR(9#TTYPE«TSIZE)|* 
END OF POINTER DECLARATION ELSE* 
BEGIN* 

IF CURSY*PACKEDSY THEN BEGIN PACKED l*TRUEI INSYMBOL ENDIX 



X*** ARRAY DECLARATION *♦* 



if cursy»arraysy then 
begin 

insymboli* 

if cursy#lbracket then err0rc47) else insymboli* 

T 1*01 FIRSTlwTRUElX 
DO BEGIN* 

IF FIRST THEN FlRSTt*FALSE ELSE INSYMBOLI* 

TYPEDECL(TX,SX)I* 

IF TX>0 THEN* 

BEGIN* 

IF TYPETABlrTXj,FORB>CHAR THEN ERR0R(48)I* 
Ti»»ARRAYSI Tl, INXTYPEIiTXI Tl , ARRTYPE l«T IX 
T2UTYPETAB2CTX3I T3 l«TYPETAB3[ TX) I X 
IF T3-T2>i022 THEN ERR0R(6l)lX 
Tl,SlZEI»MINCl023»T 3 -T2*t)|* 
NEWTYPEI* 

TYPETABHTYPEINDEXJIBTIIX 

TYPETAB2C TYPE INDEX} I »T2I TYPET AB3[TYpE I NDEXJ ?»T3I* 
Tl«TYPEINDEXI* 
ENDI* 

end until cursy#c0mma|x 

if cursy#rbracket then err0rc59) else 1nsymb0lix 

if cursy^ofsy then begin errorci8)i skipcofsy) endix 

insymbolix 

typedeclctx»sx)!x 

IF TYPETABnTXJ.FORMiFlLES THEN ERR0R(60)IX 
ARRSTRUCT|*TYP£T ABU TX), STRUCT IX 
WHILE T>0 DOX 
BEGINX 

TllnTYPETABltTJI T 3 t «T 1 , ARRTYPE I X 

T1,ARRTYPEI«TXI Tl , STRUCT I "ARRSTRUCT l-ARRSTRUCT+l | % 

Tl,SlZEI«SX|«MINci024,SXxTl t SlZE)l* 
TYPETABl[T)|»Til TxUTl Tl«T3l* 



00002686 


T 


0526 


00002689 


T 


0526 


00002690 


T 


0527 


00002691 


T 


0527 


00002692 


T 


0534 


00002693 


T 


0538 


00002694 


T 


0540 


00002695 


T 


0569 


00002696 


T 


0569 


00002697 


T 


0569 


00002698 


T 


0571 


00002699 


T 


0574 


00002700 


T 


0577 


00002701 


T 


0577 


00002702 


T 


0577 


00002703 


T 


0581 


00002704 


T 


0564 


00002705 


T 


0585 


00002706 


T 


0585 


00002707 


T 


0585 


00002708 


T 


0588 


00002709 


T 


0588 


00002710 


T 


0589 


00002711 


T 


0591 


00002712 


T 


0591 


00002713 


T 


0592 


00002714 


T 


0592 


00002715 


T 


0593 


00002716 


T 


0596 


00002717 


T 


0597 


00002718 


T 


0598 


00002719 


T 


0600 


00002720 


T 


0601 


00002721 


T 


0602 


00002722 


T 


0602 


00002723 


T 


0605 


00002724 


T 


0609 


00002725 


T 


0611 


00002726 


T 


0614 


00002727 


T 


0619 


00002728 


T 


0624 


00002729 


T 


0625 


00002730 


T 


0628 


00002731 


T 


0628 


00002732 


T 


0628 


00002733 


T 


0630 


00002734 


T 


0633 


00002735 


T 


0635 


00002736 


T 


0636 


00002737 


T 


0637 


00002738 


T 


0640 


00002739 


T 


0641 


00002740 


T 


0643 


00002741 


T 


0643 


00002742 


T 


0645 


00002743 


T 


0650 


00002744 


T 


0655 



ENDJX 

ttyPei-txj 
end of array 



TSjZEI«SXjX 

DECLARATION ELSEX 



X*** FILE DECLARATION *** 

2************************ 



ip cursy.filesy then 
begin 
insymboljx 

IF CURSYi*OFSY THENX 
BEGIN ERR0R(18);X 

IF CURSYi«lDENTlrlER THEN JNSYMBOLJX 
END ELSE INSYMBOLJX 
TYPEDECL<TX»SX)JI 
IF TX>0 THEN* 
BEGIN Tl»TYPETABUTX];X 

IF T.FORM^FIUES ThEN ERR0R(50) ELSEX 

if t,struct>i t h en erroR(«9);x 

ENDJX 

newtypei ttypei*typeinbexix 

TllciF T.FORMwCHAR THEN TeXTFILE ELSE FILESJX 
TI,SIZE»*TSIZE««SX| Tl.FILETYPEUTXJX 
Tl.STRUCTmilX 
TYPETABUTYPEINDEXJI.TUX 
END OF FILE DECLARATION ELSEX 



X*** SET DECLARATION *** 



if cursy.setsy then 
begin 
inSymbolix 

IF CURSy#OFSY ThENX 

begin err0r(18);x 

if cursy>charconSt then insymbolix 
end else insymboljx 

TYPEDECLCTX.SXm 

IF TX>0 THENX 

BEGINX 

IF TYPETABltTX3,FORM>CHAR THEN eRR0R{48) ELSEX 

IF TYPETAB2[TX]<0 OR TYPETAB3C TX J>38 THEN ERROR(5l)IX 

ENDIX 

newtype; ttypei«*typeindexix 

TjlnSETl Ti.SETTYPEl.Tx; T 1 .STRUCT J «0>X 
Ti,SlZEl«T$IZEU|l TYPETABi[TYPElNDEX]l«Ti)X 
TYP|TAB2tTYPElNDE:X]|iiTYpETAB2tTX]|X 
TYPETAB3tTYPElNDEX]|»TYpETAB3tTX]|X 
END OF SET DECLARATION ELSEX 

IF CURSY-RECORDSY THEN X*** RECORD DECLARATION *** 

Begin %************************** 

IF LASTREC'1>CURLEVEL T W £N LASTREC » *LASTREC-1 ELSE ERR0R(55)IX 

Recinxulastrecix 

BLOCKTABtREClNXjUNUMBLOCKSliiNUMBLOCKS + nX 

INSYMBOLU 

FIELDLIST(RECINX»0,SX)I* 

IF SX>1022 THEN BEGIN E(*R0R(56)J SX|»j022 ENDIX 

NEWTYPEI TTYPEI«TYPElNDEXU 

TH«REC0RDJ T1,RECTABURECINXI Tl .STRUCT |«1IX 
Tl,SlZEI«TSlZEI«SX| TYfETABl C TYPE I NDEX J IpT 1JX 
TYPETAB2tTYPElNDEXjl»0l TYPETAB3[ TYPE INDEX] MSX-1 I X 
IF CURSY#ENDSY THEN BeGjN ERR0R(24)J SKlP(ENDSY) ENDIX 



00002745 


T 


0658 


00002746 


T 


0660 


00002747 


T 


0662 


00002748 


T 


0662 


00002749 


T 


0662 


00002750 


T 


0663 


00002751 


T 


0663 


00002752 


T 


0664 


00002753 


T 


0665 


00002754 


T 


0666 


00002755 


T 


0668 


00002756 


T 


0669 


00002757 


T 


0670 


00002758 


T 


0670 


00002759 


T 


0672 


00002760 


T 


0674 


00002761 


T 


0677 


00002762 


T 


0677 


00002763 


T 


0683 


00002764 


T 


0687 


00002765 


T 


0691 


00002766 


T 


0693 


00002767 


T 


0694 


00002768 


T 


0694 


00002769 


T 


0694 


00002770 


T 


0695 


00002771 


T 


0696 


00002772 


T 


0696 


00002773 


T 


0697 


00002774 


T 


0698 


00002775 


T 


0700 


00002776 


T 


0701 


00002777 


T 


0702 


00002778 


T 


0703 


00002779 


T 


0703 


00002780 


T 


0706 


00002781 


T 


0710 


00002782 


T 


0710 


00002783 


T 


0716 


00002784 


T 


0720 


00002785 


T 


0724 


00002786 


T 


0725 


00002787 


T 


0727 


00002788 


T 


0727 


00002789 


T 


0727 


00002790 


T 


0728 


00002791 


T 


0729 


00002792 


T 


0733 


00002793 


T 


0734 


00002794 


T 


0736 


00002795 


T 


0736 


00002796 


T 


0738 


00002797 


T 


0740 


00002798 


T 


0746 


00002799 


T 


0751 


00002800 


T 


0754 


00002801 


T 


0757 



END 



IF CURSY»ENDSY THEN ^SYMBOL** 
END ELSE BEGIN ERR0R(4)| 5KIP(99) ENOIX 
ENDJS 
OF TYPEDECLJS 



00002802 T 0760 

00002803 T 0762 

00002804 T 0764 

00002805 T 0764 

36 IS 777 LONG. NEXT SEG 



X 
X 

PROCEDURE FIELDLISTCRECTAB.FIRSTADOR.LASTADDR)** 

VALUE RECTAB.FIRSTADDRU 

INTEGER RECTAB.FlRSTADDRtLASTADDRlX 

BEGINS 

INTEGER ARRAY I LI ST [ 0»L I STLENGTH] IS 



STACKfF+2) * ILIST 
STACK(F+3) • LISTINX 



00002806 
00002807 
00002808 
00002809 
00002810 
000028H 
00002812 
START OF SEGMENT 



0375 
0375 
0375 
0375 
0375 
0375 
0375 



********** 



37 



INTEGER LISTINXJX 



STACK(F*4) 

STACK(F+5) 

STACKfF+6) 

STACK(F*7) 

STACK(F*iO) 

STACK(F+11) 

STACK(F+12) 

STACK(F*13) 

STACK(F+14) 

STACK(F*15) 

STACK(F*16) 

STACK(F+17) 

STACK(F*20) 



STACK(F*21) a CSfAL 



% 



INTEGER CASETYPE»ADDR»MAXaDDR»InDEXiCTYpE»TX,SX#T1iT3»LLIM.ULIM.IIS 
m CASETYPE 
« ADOR 
• MAXADOR 
m INDEX 
■ CTYPE 

* TX 

* SX 
. Ti 
m Tj 
» LblM 

* ULIM 
« I 

BOOLEAN FIRST1* 
FIRST 

REAL CVALIX 



label casetypeid.casepart.exitis 

addr»«firstaddrix 
do begins 

while cursy«semicolon do insymbolix 

ie cursy»casesy then go tq casepart;x 

ie cursy-identifier then* 

BEGINS 

LlSTlNXl»0> EIRSTl»TRUEl* 
DO BEGINS 

IF FIRST THEN FlRSTl»FALSE ELSE INSYMBOLJX 

IF CURSY»IDENTIEIER ThENS 

BEGINS 

IF LISTINX2LI5TLENGTH THEN BEGIN ERR0R(37)I LiSTINXluO ENDJS 
LISTINXIpLISTInX+jIS 

new n ameccurnamei#cUrnamE2»rectab>;s 

ILISTCLISTINX]|»ThISINDEX|S 

INSYMBOLIS 
END ELSEX 
BEGIN ERR0R(9)IS 



00002813 T 0001 

00002814 T 0001 



00002815 T 0001 

00002816 T 0001 



00002817 
00002818 
00002819 
00002820 
00002821 
00002822 
00002823 
00002824 
00002825 
00002826 
00002827 
00002828 
00002829 
00002830 
00002831 
00002832 
00002833 
00002834 
00002835 
00002836 



T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0001 
0001 
0001 
0002 
0003 
0005 
0006 
0007 
0007 
0009 
0010 
0012 
0013 
0013 
0016 
0017 
0040 
0041 
0042 
0042 



IF CURSY#COMMa THEN INSYMBOLIX 

ENDIX 
END UNTiL CURSY#COMMA|X 

IF CURSy#COLON THEN BfGlN ERR0RC26)! SKIP(COLON) ENDIX 
INSYMBOLIX 
TYPEDECL(TX»SX)JX 

IF TX>0 THEN IF TYPETABnTXj.FORMiFjLES THEN ERR0R(57)IX 
T3,IDCUASS!«VAR; T3 t TYpEI«TX|X 
FOR I»*l STEP 1 UNTIL LlSTlNX DQX 
BEGIN* 

T3,lNFOI*ADDR* ADDR»«MIN( ADDR+SX, 1024) 1% 

NAMETAB3tRECTAB,iLlSTtI]]l»T3il 
END'! 
ENDIX 
END UNTIL CURSY^SEMICOLONJX 
LASTADDRl«ADORJX 
GO TO EXITU 



lastaddRi«addRi INDEXJ*-UX 



CASEPARTJX 

LISTINXIpOI 

insymbolix 

if cursy.identifieh thenx 

BEGINX 

searchix 

if found and thiSjd.idclass.types then go to casetypeidix 

NEWNAME(CURNAME1»CURnAME2»RECTAB)I indexi.thisindexjx 

insymbolix 

if cursy»»colon then error(26)|x 

insymbolix 

if cursy»identifier then* 

BFGINX 

SEARCH*! 

if found thenx 

BEGINX 

ie thisid,idclass*tyPes thenx 

BEGINX 
CASETYPEIDI CA&ETYPE I «TH I S I D.TYpEI Ti I *TYPETaB1CCASeTYPE J IX 

LLIMI«TYPETAB2[CASETYPEJI ULJMl.TYPETAB3tCASETYPE]IX 
IF Ti,FORM>CHAR T H EN ERR0R(48)IX 
IF INDEX>0 THENX 
BEGINX 

T3„IDCLASSI»VAR| T3, TYP£I*C ASETYPEI T3, INFO l-AODRIX 
ADDRULASTADDRUADDR + ll NAMETAB3CRECTAB, I NDEX] I »T3J % 
ENDIX 

INSYMBOL'X 
END ELSE BEGIN ERR0RC7)! SKIPCOFSY) ENDIX 
END ELSE BEGIN ERROR(i)l SKlP(OFSY) EnDIX 

end else begin errqrc9)i skipcofsy) endjx 
end else begin err0r(9)j sklp(ofsy) endlx 
if cursyjiofsy then begin eRRorci8)i skipcrpar) endix 
if cursypofsy then insymbolix 

if casetype*o then begin ulimi*-maxinti ulimi«maxint endix 
do beginx 

while cursy»semjcolon do insymbolix 

IF CURSYSCHARCONST OR CURSY-PLUS OR CUR5Y*MINUS thenx 
BEGINX 

FIRSTI«TRUE)X 



00002837 


T 


0043 


00002638 


T 


0045 


00002839 


T 


0045 


00002840 


T 


0046 


00002641 


T 


0049 


00002842 


T 


0049 


00002843 


T 


0050 


00002644 


T 


0054 


00002845 


T 


0058 


00002846 


T 


0059 


00002847 


T 


0059 


00002848 


T 


0064 


00002649 


T 


0066 


00002650 


T 


0068 


00002851 


T 


0066 


00002852 


T 


0070 


00002853 


T 


0071 


00002854 


T 


0073 


00002855 


T 


0073 


00002856 


T 


0073 


00002857 


T 


0075 


00002858 


T 


0076 


00002859 


T 


0077 


00002860 


T 


0077 


00002861 


T 


0106 


00002862 


T 


0108 


00002863 


T 


0131 


00002864 


T 


0131 


00002865 


T 


0133 


00002666 


T 


0134 


00002867 


T 


0135 


00002866 


T 


0135 


00002669 


T 


0164 


00002870 


T 


0164 


00002871 


T 


0164 


00002872 


T 


0166 


00002873 


T 


0166 


00002874 


T 


0169 


00002875 


T 


0171 


00002876 


T 


0173 


00002877 


T 


0174 


00002878 


T 


0175 


00002679 


T 


0180 


00002680 


T 


0164 


00002881 


T 


0184 


00002862 


T 


0164 


00002883 


T 


0166 


00002684 


T 


0166 


00002885 


T 


0190 


00002886 


T 


0192 


00002887 


T 


0195 


00002888 


T 


0197 


00002889 


T 


0200 


00002890 


T 


0201 


00002891 


T 


0205 


00002692 


T 


0207 


00002893 


T 


0208 



EN 
EMTIX 
END OF 



DO BEGIN* 

IF FIRST THEN 
CONSTANTCCVAL 
IF CTYPE>0 TH 
BEGIN* 

IF CASETYPE 
IF CVAKLLI 
CHECKTYPESC 
IF LISTJNX* 
LlSTlNX l«L I 
ILISTCLISTI 
WHILE ILIST 
IF KLISTIN 
ENDJ* 
END UNTIL CURSY 
IF CURSY#COLON 
IF CURSY-COLON 
IF CURSY*LPAR T 
BEGINS 

INSYMBOLJ FI 

IF MAXADDH>LA 

IF CURSY#RPAK 

1NSYMBOLJ* 

END ELSE ERRORC 

EnDIX 

D UNTIL CURSY NEG 

FIELDLISTIX 



FlRSTi«FALSE 
»CTYPE)I* 
EN* 



ELSE INSYMBOLJ* 



•0 THEN CASETYPE»«CTYPE ELSE* 

M OR CVAL>ULIM THEN ERR0R(14) ELSE* 

vnr . /»Tvor > i * 



CASETYPE#CTYPE)J* 

LISTLENGTH THEN BEGIN ERR0R(3O)J LlSTlNXlwO ENDJX 

STiNX+il* 

I»»1*X 



STjNX+il* 
NX]I»CVAlI . . 
tU#CVAL DO IMI + U* 

x then errorodis 



SKIPCLPAR) END>* 



#COHMAj* 

then begin errorc26)j 
then insymbolj* 
henx 

ELDLlST(RECTAB»ADDRtMAXADDR)l* 

staddr Then lastadd r »«maxaddRi* 
then begin errorc46)* skipcrpar) 



END1X 



56)1% 

semicolon; * 



00002894 T 

00002695 T 

00002896 T 

00002897 T 
00002896 T 

00002899 T 

00002900 T 

00002901 T 

00002902 T 

00002903 T 

00002904 T 

00002905 T 

00002906 T 

00002907 T 

00002908 T 

00002909 T 

00002910 T 

00002911 T 

00002912 T 

00002913 T 

00002914 T 

00002915 T 

00002916 T 

00002917 T 

00002918 T 

00002919 T 

00002920 T 

00002921 T 
37 IS 401 LONG. 



0209 
0209 
0211 
0299 
0299 
0300 
0302 
0305 
0365 
0367 
0369 
0371 
0374 
0376 
0376 
0377 
0380 
0382 
0382 
0383 
0385 
0387 
0390 
0390 
0391 
0391 
0393 
0393 
NEXT SEG 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

x X 

* * 

x * 

X PART 61 THE PROCEDURE BLOCK, X 

X X 

x X 

x * 

x X 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

X 

X 

% 

PROCEDURE DECLAREVARSCPARAM»TAB,F1RST»LAST»LEVEL)JX 
PRT<377? « DECLAREVARS 

VALUE PaRAM»FIRST»LAST#LEVELJX 
INTEGER ARRAY TABtOJJX 
INTEGER FIRST, LAST, LEVELIX 
BOOLEAN PARAMJX 
BEGlNX 

INTEGER LEVELlOOO f TYPfNAM t NAMTABtTl»I#J»RECSlZE*X 

STACKrF+2) 9 LEKELlOOO 
STACKcF+3) » TYP 
STACK(F*4) a NAN 
STACK(F+5) * NABTAB 
STACK(F*6) n Tl 
STACK(F+7) « I 
STACK(F*10) * J 
STACK(F+11) m RECSIZE 

BOOLEAN REALVAR»ARRaYVaR»FIRSTDiM,£XTfILE*X 
STACKfF+12) * RlALVAR 

STACKfF*13> * ARRAYVAR 
STACKfF+14) » FIRSTDIM 
STACK(F*15) « EXTFILE 

ALPHA FNAMEJX 
STACK(F+16) * FRAME 

INTEGER FNLENGTH»FNSTART* X 
STACKtF + m • F8LEN6TH 
STACK(F+20> > FNSTART 

X 

UEVeUOOOIbLEVeLxIOOOIX 

FOR IUFIRST STEP 1 UNTIL LAST QOX 

BEGjNX 

NAMI*TABtl3,[9liO]? NAMTAB t«NAMET AB3tLEVEL.NAM] I % 
TyPIuNAMTAB.TYPEI Til«TYPETABl[TYP3IX 
IF NAMTAB, IDCLASS GEO FUNC THENX 
BEGINS 

IF REALVAR OR ARRAYVAR THENX 
BEGINX 

GEN("J!M»niX 
REALVAR I • ARRAYVAR I »FALSE IX 
ENDfX 

IF NAMTAB, IDCLASSi»FUNc THEN GEN( "REAL", 5,4) JX 
GEN("PROCEDU", 8, im 

GENID< ,, V"tLEVELlOO0 + NAM,5)l GEN( "I % 1 , 7) I % 
PRT(400) = *DESflNATlON POINTER* 
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0375 


00002927 
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00002926 
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00002929 
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00002930 
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00002931 
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0375 


00002933 
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0375 


00002934 
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0375 


00002935 
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0375 


00002936 
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0375 


00002937 


T 


0375 


00002936 


T 


0375 


00002939 


T 


0375 


00002940 


T 


0375 


00002941 


T 


0375 


00002942 


T 


0375 



START OF SEGMENT ********** 



36 



00002943 T 0000 



00002944 T 

00002945 T 



00002946 
00002947 
00002946 
00002949 
00002950 
00002951 
00002952 
00002953 
00002954 
00002955 
00002956 
00002957 
00002956 
00002959 
00002960 
00002961 



0000 
0000 



0000 
0000 
0001 
0002 
0002 
0005 
0007 
0008 
0009 
0010 
0010 
0019 
0020 
0020 
0031 
0040 



%*** SIMPLE TYPE *** 

ARRAYVARlnFAUSE ENDIX 
sTRUE ENDIX 



AUSE ENDIX 
ORO *** 



END ELSEX 

IF Tl.STRUCTsO THEN 

BEGINX 

IF ARRAYVAR THEN BEGIN GEN("| "» 1 1 7 ) J 
IF REALVAR THEN GENC ", ", 1 » 7 ) ELSEX 

BEGIN GEN(«REAL"#5»»>> REALVARI 
GENI0( H V W .LEVEU1000*NAM,5)IX 
END ELSEX 
BFGINX 

IF REALVAR THEN BEGIN G|N("I", It 7)1 realvari»f 
IF Ti l FORM<FILES THEN %**+ ARRAY/REC 

BEGINX 

IF ARRAYVAR THEN GEN("» »• I • 7 ) ELSEX 

BEGIN GEN("ARRAY"»6i3)l ARRAYVAR I uTRUE E 
GENlDC w V"fLEVELiOOO+NAMi5)l GEN<"[ "# 1 • 7) i % 

firstdim»«trueix 
do beginx 
if firstdim then f i rstdi m l-false else gen( 

GENlNT(TYPETAB2[TYPl)U 
IF NOT PARAM ThENx 

BEGIN GEN( w l w tl»7)l GEN iNT( T YPETAB3t TYP } ) 
TYPt-JF Ti,FORM«ARRftYS THEN Ti.ARRTYPE ELS 
TH*TYPETABlCTYP]>X 
END UNTIL Ti,STRUCTi.O|X 
GEN("3"»1#7)IX 
END ELSEX 

BEGIN X*** FILE *** 

IF REALVAR OR ARRAYVAR THENX 

BEGIN GEN("I", 1,7)1 REALVAR I »ARRAYVAR l*F 
IF T1,F0RM»TEXTFILE AND NOT PARaM THENX 
BEGINX 

IF NUMFILES*MAXFILE& THEN 

ELSE 

F!LETABtNUMFILES]»*NAMJX 
ENDIX 

extfilei*falseix 

fname »»nametab it level, nam] )x 

fnlength «* fname.namelengthi FNSTART l« 8- 

IF FNLENGTH LEO 6 ThEN % 

BEGINX 

FOR Jl«l STEP 1 UNTIL NUMEXTFIUES DOX 

IF FNAME«EXTFILETAB[J1 then extfile«*truei 
ENOIX 

IF EXTFILE AND NOT PARAM THENX 
BEG I NX 

IF NUMFILES GEO MAXFILES THEN ERR0R(97)X 

ELSEX 

NUMFILES t» NUMFILES ♦ 1IX 

FILETABINUMFILES] »• -NAM • 1*X 

GENC "DEFINE" #7,2) J GEN I D( "F",LEVEL1000+NA 

GENC*", li 7) IX 

GENCFNAMEfFNLENGTntFNSTARTJI X 

GEN(«#|«»2»6)J gENC"SaVE"*5,4)| 

GEN(FNAME»FNLENGTh»FNSTART)# X 
END ELSEX 
BEGINX 

GEN(«FlLE"#5»4)J GINlD("F"»LEVELlOOO+NAMt 



NDIX 



f, » N ilf7)»X 



ENDIX 

E realtypeix 



ALSE ENDIX 



ERR0R(97)X 
NUMFILES!«NUMF ILES+lIX 



FNLENGTHJ X 



Mt5)lX 

GEN("FILE"»5,4)IX 

5)1X 



00002962 
00002963 
00002964 
00002965 
00002966 
00002967 
00002968 
00002969 
00002970 
00002971 
00002972 
00002973 
00002974 
00002975 
00002976 
00002977 
00002978 
00002979 
00002980 
00002981 
00002982 

00002983 
00002984 
00002985 
00002986 
00002987 
00002988 
00002989 
00002990 
00002991 
00002992 
00002993 
00002994 
00002995 
00002996 
00002997 
00002998 
00002999 
00003000 
00003001 
00003002 
00003003 
00003004 
00003005 
00003006 
00003007 
00003008 
00003009 
00003010 
00003011 
00003012 
00003013 
00003014 
00003015 
00003016 
00003017 
00003018 



0062 
0062 
0066 
0066 
0077 
0087 
0097 
0109 
0109 
0112 
0122 
0123 
0124 
0134 
0144 
0165 
0166 
0167 
0179 
0223 
0223 
0277 
0281 
0282 
0283 
0292 
0292 

0293 
0294 
0304 
0306 
0307 
0309 
0311 
0312 
0312 
0313 
0314 
0317 
0318 
0318 
0320 
0324 
0324 
0325 
0326 
0327 
0328 
0329 
0331 
0353 
0362 
0371 
0398 
0407 
0407 
0411 



ENDIX 

IF NOT PARAM 

BEGINS 

GEN(" DISK" 
IF EXTFILE 
BEGINS 

IF ALGOLC 
GENCtOI 
GEN("""il 
GEN(FNAME 
GENC"*"#J 
IF ALGOLC 



GENC 



»«•» 



1 



THEN* 

#6.3)1 

THEN* 

NT LSS 1 
03", 5. 3> 

,ni% 

tFNLENGT 
,7)t 

nt<9 The 

»7)J 



GEN("SERJAL".7»2)|X 



3 THEN WKITEALGOLIX 
IX 

HiFNSTART)! % 
GENfV"»1.7)l* 

N NRiTEALGOLU 
GEN(USER#7»1)J 



GENC"""»l»mg 



END ELSEX 
BEGINX 

GENC"[20l"#4,4)j GEN("300 3"»4,4)IX 
ENDJX 

GEN<"(1,",3 

RECSIZEI'IF 

IF 



GENINT(REC5 
IF RECSIZE* 



#5)jX 

Tl.FORM 
TYPETaB 

TYPETAB3 

IZE)I 

1 OR REC 



IF ALGOLCNT 
GEN( w tSAVE M » 
GEN(")|«#2»6 
END ELSE GENC 
GENC*ARRAY"#6» 
GEN("C w il#7)IX 
IF TYPETABltTl 
BEGINS 

IF PARAM THE 
END ELSEX 
BEGINS 

GENINTCTYPET 
IF NOT PARAM 
BEGIN GENC-I 
ENDJX 

GEN("]J*i2.6)J 
GENClNTEGER". 
GENCI",1,7)IS 
ENDJX 
END1X 
END OF LOOPIX 
IF REALVAR OR ARRAYV 
END OF DECLAREVARSIX 



LSS 10 

6»3)» 

)IX 

I'M*?) 

3)1 

.FILETY 

N GEN(" 



AB2CT tl 

THENS 
•Mi7)J 

s 

8,1), 



•TEXTFILE THEN 10 ELSEX 
4[Tl t FlLETYPE3,STRUCT«0 THEN 1 ELSEX 
ETl t FILETYPE]-TYPETAB2[Tl,FILETYPE]+liX 
GEN("» W #1#7)IS 

sizemo Then genintcisox 

else genint(recsize)>s 
then nritealgoljx 

GEN("30"»2»6)*X 

IX 

GENID( W V W ,LEVEL1000*NAM.5)JX 

PE3,STRUCT»0 ThENX 

0"»i.7) ELSE GENC"0|0",3.5)JX 

FILETYPE3)IX 
GENINT(TYPETAB3IT1,FILETYPE3) ENDJX 

GENIDC"I".LEVEL1000+NAM»5)JS 



ar then genc"i"»i, 7m 
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00003019 T 


0432 


00003020 T 


0432 


00003021 T 


0433 


00003022 T 


0433 


00003023 T 


0451 


00003024 T 


0451 


00003025 T 


0452 


00003026 T 


0454 


00003027 T 


0463 


00003028 T 


0472 


00003029 T 


0481 


00003030 T 


0499 


00003031 T 


0500 


00003032 T 


0532 


00003033 T 


0532 


00003034 T 


0532 


00003035 T 


0550 


00003036 T 


0550 


00003037 T 


0559 


00003038 T 


0562 


00003039 T 


0565 


00003040 T 


0568 


00003041 T 


0624 


00003042 T 


0670 


00003043 T 


0714 


00003044 T 


0716 


00003045 T 


0734 


00003046 T 


0743 


00003047 T 


0755 


00003048 T 


0776 


00003049 T 


0785 


00003050 T 


0787 


00003051 T 


0788 


00003052 T 


0809 


00003053 T 


0809 


00003054 T 


0609 


00003055 T 


0854 


00003056 T 


0854 


00003057 T 


0909 


00003058 T 


0909 


00003059 T 


0918 


00003060 T 


0939 


00003061 T 


0946 


00003062 T 


0946 


00003063 T 


0946 


00003064 T 


0951 


00003065 T 


0961 


978 LONG. 


NEXT SEG 



PRT(401) 



S 
X 

procedure 
paRameteRList 

BEGINS 



parameterlistis 



00003066 
00003067 
00003068 



0375 
0375 
0375 



00003069 T 0375 



INTEGER FlRSTPARAMtCURKINO»Pl»PXf I»TJX 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



(F + 2) 
(F + 3) 
(F + 4) 
(F + 5) 
(F + 6) 
(F*7) 



1RSTPARAM 

URKINO 

1 

X 



00003070 T 0375 
START OF SEGMENT ********** 



3* 



STACK(F+10) 



FIRST 
X 



VAR 
FUNC 



ELSEX 

ELSE PROCIX 



INSYMBOLIX 



BOOLEAN FIRSTIX 



DEFINE NEWPARAMeX 
BEG INI 

IF NUMPARAMSiMAXPARAMS THENX 

BEGIN ERR0R(70)I NUMPARAMS I bMAXPARAMS-10 ENOlX 

NUMPARAMSIuNUMPARAMS+iJX 

end of newparamiix 

newparami fiRstpaRami.numpaRamsix 
if cursy«lpaR thenx 

BEGlNX 

DO BEGlNX 
INSYMBOLIX 

IF CURSY»VARSY oh cursy»funcsy OR CURSY*PROCSY thenx 
BEGlNX 

CURKINDUIF CURSY*VARSY THEN 
IF CUHSY«FUNcSY THEN 
INSYMBOLIX 
END ELSE CURKlNDI»CONSTlX 

fjrsti«true; pi»*numparams+ux 

DO BEGlNX 

IF FIRST THEN FIRST|«FALSE ELSE 

IF CURSY.IDENTIFIER T H ENX 

BEGlNX 

NEWnAME(CURNAME1»CUrnAME2»CURlEVEl+1)IX 
PXI«THISINDEX| PX,PARAMKINDI«CURKIND1X 
PX,PARAMLEVELtsCURLEVEL*UX 
NEWPARAMI PARAMTaB|NUMPARAMSJI»PXIX 

end else err0rc9)jx 
insymbolix 

END UNTIL CURSYi»COMMAfX 
IF CURSY«COLON THENX 
BEGlNX 

IF CURKiND»PROC THEN fRR0R<9Q)IX 

INSYMBOLIX 

IF CURSY»IDENTIFIER ThENX 

BEGlNX 

searchix 

if found thenx 

BEGlNX 

IF thisid,idclass*types THENX 

BEGlNX 

T3I»THISID,TYPE|X 

FOR II«P1 STEP 1 UNTIL NUMPARAMS DOX 

PARAMTABm f PARAMTYPE»«T3iX 

IF CURKlND*CONST OR CURKJND«VAR THENX 
BEGlNX 



00003071 T 0000 



00003072 
00003073 
00003074 
00003075 
00003076 
00003077 
00003078 
00003079 
00003080 
00003081 
00003082 
00003083 
00003084 
00003085 
00003086 
00003087 
00003088 
00003089 
00003090 
00003091 
00003092 
00003093 
00003094 
00003095 
00003096 
00003097 
00003098 
00003099 
00003100 
00003101 
00003102 
00003103 
00003104 
00003105 
00003106 
00003107 
00003108 
00003109 
00003110 
00003111 
00003112 
00003113 
00003114 
00003115 
00003116 
00003117 
00003118 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0005 
0006 
0006 

ooor 

0007 
0010 
0010 
0012 
0015 
0016 
0017 
0019 
0020 
0022 
0023 
0023 
0049 
0051 
0053 
0059 
0060 
0061 
0062 
0063 
0063 
0065 
0066 
0067 
0067 
0096 
0096 
0096 
0098 
0098 
0099 
0101 
0105 
0107 



TtpTYpETABirTslJX 

if t.form*files then* 
for ji*p1 step l until numparams dox 

PARAMTABtl J,PARAMFlLEl»il* 
IF T,STRUCT>0 AND CURK I ND*CONST THEN ERR0R(94)|X 
END ELSE IF T t STRUCT>0 THEN ERR0R(38)IX 
END ELSE BEGIN eRRQR(7>) T3l«0 ENDIX 
END ELSE BEGIN ERR0B(1)| T3U0 ENDIX 
END ELSE BEGIN ERRORCJ)! T3UO eNDIX 
INSYMBOLIX 
END ELSEX 
BEGINX 

IF CURKIND*PR0C THEN |RR0R(7)IX 
T3I«0I X 
ENDIX 

T3 ( JDCLASSlnCURKINDJ T$, FORMAL » «1 I X 
FOR I • wPl STEP 1 UNTIL NUMPARAMS DOX 
NAMETAB3CCURLEVEL+1#PaRaMTABUJ.PARAMNAME]I*T3JX 
END UNTIL CURSY#SEHIC0L0N|J! 
IF CURSY#RPAR THENX 

Begin eRRor<46)j skipcrpaR)ix 

if cursy-rpar then insymbolix 
end else insymbolix 

ENDIX 

PARAMTAB[FIRSTPARAM]I«NUMPABAMS«FIRSTPARAMIX 
END OF PARAMETERLISTIX 
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00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
157 



119 
120 

121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 



LONGi 



0108 
0109 
0110 
0112 
0116 
0120 
0123 
0125 
0127 
0129 
0129 
0129 
0130 
0132 
0133 
0133 
0136 
0138 
0143 
0144 
0145 
0147 
0149 
0150 
0150 
0152 
NEXT SEG 



PRTC402* » BLOCK 



% 

% 

PROCEDURE BLOCKIX 



00003145 T 0375 

00003146 T 0375 

00003147 T 0375 



BEGINS 

INTEGER !NDEX#CTYPEtNUMF0RWARDS»T,T3.TX»ilX 



STACK(F+2) « INDEX 

STACK(F+3) ■ CTfPE 

STACK(F+4> » NUgFORWARDS 

STACK{F+5) * T 

STACK(F+6) « T3 

STACK(F+7) * TX 
STACK(F*lO) * I 



00003148 

00003149 

START OF SEGMENT 



T 0375 
T 0375 

********** 



40 



REAL CVALIX 
ALPHA C1.C2IX 



STACKfF+11) * CtfAL 

STACK(F*12) * Cf 
STACK(F+13) - C2 

BOOLEAN VALUEPARAMS,FUNIX 
STACK(F+14) * VALUEPARAMS 
STACK(F+15) * FUN 

LABEL STARTlX 
X 

INTEGER LABTABTOP,CONSTTABTOP#TYPETABTOP,PARAMTABTOP.TOPRECtX 



00003150 T 0000 

00003151 T 0000 

00003152 T 0000 



00003153 T 0000 

00003154 T 0000 

00003155 T 0000 



STACKf F+16 
STACK(F*17 
STACK(F*20 
STACK(F+21 
STACK(F+22 

STACK(F+23 
STACK(F*24 



> m LABTABTOP 
) * C0NSTTABTOP 
) « TYPETABTOP 
) = PARAMTABToP 
) « TQPREC 

formerfirstlab»firstfileix 
) * formerfirstlab 
) * firstfile 

X 

FORMERFIRSTLAB I »F I RSTUB IX 

LABTABTOP I »NUMLABS* F IRSTLAB I pLABT ABTOP* 1 * X 
CONSTTABTOPl*NUMCONSTSJX 
TYPETABTOPIwNUMTYPESIX 
PARAMTABTOP I «NUMP ARAMS IX 
TOPRECI»LASTRECIX 
FIRSTFILEI»NUMF1LES+1*X 
X 

TOPLEVELMCURLEVELU 

IF CURLEVELM THEN GEN("BeGiN"# 6# 3) t % 
STARTtX 

IF CURSY»LABELSY THEN 
BEGIN 

GEN<"LABEL%6,3)U 
DO BEGINX 
INSYMBOLIX 

IF CURSYwINTCONST ThENX 
BEGINX 

GENlD("L"»CURVAL»4>lX 
PRT(403> * *DESJINATI0N POINTER* 

IF CURVAL>9999 THEN ERROR(33)|X 
FOR IlnFIRSTLAB STEP 1 UNTIL NU 
IF LABTABtHiLABVAtnCURVAL THEN 
IF NUMLABSfcMAXLABS THEN BEGIN E 
NUMLABSI*NUMLABS4-ll| 
LABTAB[NUMLABS3I«CU6VALIX 
INSYMBOLIX 
END ELSE BEGIN ERRORClO)! SKlP(CO 
IF CURSY.COMMA ThEN GENC", ". 1 » 7) I 
END UNTIL CURSY*CQMMAjX 
IF CURSY^SEMICOLON THEN BEGIN ERROR 
GEN("l"»li7)IX 

IF SYMKINOICURSY^INITIAL THEN INSY 
OF LABEL DECLARATIONJX 



X** 
X** 



* LABEL DECLARATION *** 

*********************** 



MLABS DOX 

£RR0R(31>IX 
RR0R(34)I NUMLABSleO ENDJX 



MMA) ENDJX 
X 

(25)1 SKIP(SEMICOLON) ENDIX 

MBOLIX 



END 



THEN 



X** 
X** 



* CONSTANT DECLARATION *** 
************************** 



IF cURSY»CONSTSY 
BEGIN 

INSYMBOLIX 

DO BEGINX 

IF CURSY*IDENTIFIER THENX 

NEWNAME(CURNAMEl»CURNAME2iCURLEVEL)» I NDEX |»THI SI NDEXI X 

INSYMBOLIX 

IF CURSY»EOL5Y THENi 

BEGINX 

INSYMBOL* CONSTANT(CVAL»CTYP 

T3UCTYPEI T3.IDCLASSUCONST 

IF CVAL,[46I8J#0 «R CVAL>1023 

BEGINX 



00003156 T 0000 



00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 
00003 



'Em 

IX 

thenx 



00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003 

00003200 

00003201 

00003202 

00003203 

00003204 

00003205 



57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
66 
69 
70 
71 
72 
73 
74 
75 
76 



77 

78 
79 
80 
81 
62 
83 
84 
85 
86 
87 

88 
89 
90 

91 
92 
93 
94 
95 
96 
97 
98 
99 



T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0000 
0002 
0003 
0004 
0005 
0005 
0007 
0007 
0007 
0018 
0018 
0016 
0019 
0028 
0029 
0029 
0030 
0030 

0042 
0044 
0049 
0054 
0056 
0058 
0059 
0059 
0061 
0072 
0073 
0076 
0085 
0087 
0087 
0087 
0087 
0086 
0086 
0089 
0089 
0090 
0113 
0113 
0114 
0115 
0203 
0205 
0207 



END 



IF NUMCONSTSiMAXCQNSTS THENI 

BEGIN ERR0R(35>J NUmCONSTSUQ ENDJX 

numconstsunumconsts+h* 

CONST TABtNUMCoNSTSjtuCVAL IX 
T3,INF0l»1023*NUMC0NSTSIX 
END ELSE T3,INF0»»CVALI* 
NAMETAB3CCURL.EVEL»INDEXJI*T3IX 
END ELSE BEGIN ERR0g(36)| SK IP( SEM ICOLON) eNDJX 
END ELSE BEGIN ERRQR(J)I SK IPC SeMjcOLON) ENDJX 
IF CURSY0SEMICOLON THEN BEGIN ERR0R(25)| SKI P(SEMICOLON) 
IF SYMKiND[CURSY]*iNiTIAL T H EN INSYMBOLJX 
END UNTjL CURSY#IDENTiFlERJ* 
OF CONSTANT DECLARAT I QNJ X 



ENDJX 



%**+ TYPE DECLARATION *** 



INDEXI«THISINDEXIX 



IF CURSY«TYPESY THEN 
BEGIN 

INSYMBOLJX 
DO BEGINS 

IF CURSY«IDENTIFIER T H ENX 
BEGINX 

NEWNAME(CURNAME1»CUBNAME2,CURLEVEL)» 

INSYMBOLJX 

IF CURSY*EGLSY THENi 

BEGINX 

insymboljx 
typedeclcctypeitx)ix 

T3!»CTYPEJ T3,IdClASS|«TYPES1X 
NAMETAB3[CURLEVeL,INDEX]J«T3IX 
END ELSE BEGIN £RR0R(36)J SK IP( SEMI COLON) ENDJX 
END ELSE BEGIN ERROR(f)J SKlP(SEMiCOLON) ENDJX 

IF CURSY#SEMlCOLON TH|N BEGIN ERRQR(25)J SKI P(SEMICOLON) END1X 
IF SYMKiNDtCURSY]#lNlTlAL THEN INSYMBOLJX 
END UNTIL CURSY#IDENTiFiER'X 
END OF TYPE DECLARAT I ONI X 



IF CURSY«VARSY 
BEGIN 

VARINDEXI- 

DO BEGINX 

FIRSTVAR 

DO BEGIN 

IF CUR 

IF CUR 

BEGINX 

IF V 

BEGI 

VARl 

NEWN 

VARL 

INSY 

END EL 

END UNTI 

IF CURSY 

IF CURSY 

BEGINX 

INSYMB 

TYPEDE 



THEN 
OJX 



X*** VARIABLE DECLARATION *♦* 



IwVARlNDEX + HI 

X 

SY»VARSY OR CURSY-CGMMA 

SY»IDENTIFIeR THENX 



then insymbolix 



ARlNDEXiLlSTLENGTn THEN* 

N ERRORC37)! VARINDEXI*0 ENDJX 

NDEXUVARJNDEX + UX 

AME(CURNAMEl»CURNAME2#CURLEVEL)IX 

IST[VARINDEX]I»THISINDEXIX 

MBOLJX 

SE BEGIN ERR08(9)| SKIP(COLON) ENDJX 

L CURSYftCOMMAjX 

#colon then begin err0r(26)j skip(colon) endjx 
pcolon then* 

oljx 
cl(ctype.tx)j| 



00003206 
00003207 
00003206 
00003209 
00003210 

000032U 
00003212 
00003213 
00003214 
00003215 
00003216 
00003217 
00003218 
00003219 
00003220 
00003221 
00003222 
00003223 
00003224 
00003225 
00003226 
00003227 
00003228 
00003229 
00003230 
00003231 
00003232 
00003233 
00003234 
00003235 
00003236 
00003237 
00003238 
00003239 
00003240 
00003241 
00003242 
00003243 
00003244 
00003245 
00003246 
00003247 
00003248 
00003249 
00003250 
00003251 
00003252 
00003253 
00003254 
00003255 
00003256 
00003257 
00003258 
00003259 
00003260 
00003261 
00003262 



0206 
0209 
0211 
0212 
0213 
0215 
0218 
0220 
0222 
0224 
0226 
0228 
0230 
0230 
0230 
0230 
0231 
0231 
0232 
0232 
0233 
0256 
0256 
0257 
0258 
0258 
0259 
0262 
0264 
0266 
0266 
0270 
0272 
0274 
0274 
0274 
0274 
0275 
0276 
0276 
0277 
0278 
0280 
0281 
0282 
0282 
0264 
0286 
0306 
0309 
0310 
0312 
0313 
0316 
0317 
0317 
0318 



END 



T3UCTYPE* T3 f IOCUSSl.VARIX 
FOR IUFIRSTVAR STE* 1 UNTIL VARlNDEX DOX 
NAMETAB3tCURLEVEL»VARLlSTUJlt«T3JX 

END ELSE BEGIN ERR0R(26)I SK I P(SEM I COLON ) ENDIX 

IF CURSY#SEMICOLON THEN BEGIN ERR0R(25)I SKIP( SEMI COLON) 

IF SYMKlNDtCURSYjf INITIIL THEN JNSYMBOLIX 

END UNTIL CURSYi»IDENTiFlER*X 

DECLARE V ARS( FALSE»VARL I &Tt l# VARlNDEX i CURLEVELm 

OF VARIABLE DECLARAT lONl X 



ENDJX 



IF NUMPNTRS>0 thenx 
BEGlNX 

Cll«CURNAMEll C2»*CURNAM|2lX 

FOR H«l STEP 1 UNTIL NUMUNTRS DOX 

BEGINX 

CURNAMEllwPNTRTABlt 131 CURNAME2 UPNTRTAB2C U I % 
SEARCHTABCCURLEVED1X 

THISIDI»NAMETAB3[CURLEVEL»THISINDEX3IX 
IF FOUND AND THI SID, loCLASS.TYPES THENX 

TYPETABl[PNTRTAB3[l33,P0lNTTYPEl«THlSlD,TYPE ELSE ERR0R(62>IX 
ENDIX 

CURNAME1UCU CURNAME2f«C2l NUMPNTRS IsOI X 
ENDIX 



X*** PROC/FUNC DECLARATION *** 



WHILE CURSY.FUNCSY OR CURsYnPROCSY DO 
BEGjN 

FUNI*CURSY*FUNCSYI InS*MBQLIX 
IF CURSY*IDENTIFIER ThENX 
BEGINX 

SEARCHTABCCURLEVEDiX 

THlSiDI«NAMETAB3tCURLEVEL.THlSlNDEXjlX 
IF FOUND AND THIS I D, IDCLASSfcPROC THENX 
BEGINX 

INDEXl»THlSlNDEXIX 

IF THISID,F0RWARDDEF«1 THEN* 

BEGINX 

NAMETAB3tTHISLEVEL»THlSlNDEX],F0RWARDDEFJ»0)X 
NUMFORWARDSJbnUmFqRWARDS-IU 
IF(THISlD,IDCLASS«PROC AND FUN)OR* 

(THISID.IDCLASShFUNC AND NOT FUN) THEN ERROR(43)|X 
INSYMBOLIX 
END ELSE BEGIN ERR0R(2)I SK IP( SEMICOLON ) ENDIX 
END ELSEX 
BET! NX 

NEWNAMeCCURNAMe1»cURNAMe2.CURLEVELH INDEXI*THISINDEXIX 

T3«bO| T3,lNFOI»NUNPARAMS + nx 

T3.IDCLASSUIF FUN THEN FUNC ELSE PROCJX 

NAMETAB3CCURLEVEL»INDEX]|*T3»X 

INSYMBOLI PARAMETERLISTIX 

IF CURSY»COLON THEN* 

BEGINX 

IF NOT FUN THEN ERR0R(48)IX 
INSYMBOLIX 

IF CURSY"IDENTIFIER THENX 
BEGINX 
SEARCHIX 

if found Thenx 

BEGINX 



00003263 
00003264 
00003265 
00003266 
00003267 
00003266 
00003269 
00003270 
00003271 
00003272 
00003273 
00003274 
00003275 
00003276 
00003277 
00003278 
00003279 
00003280 
00003281 
00003282 
00003283 
00003284 
00003285 
00003286 
00003287 
00003288 
00003289 
00003290 
00003291 
00003292 
00003293 
00003294 
00003295 
00003296 
00003297 
00003298 
00003299 
00003300 
00003301 
00003302 
00003303 
00003304 
00003305 
00003306 
00003307 
00003308 
00003309 
00003310 
00003311 
00003312 
00003313 
00003314 
00003315 
00003316 
00003317 
00003318 
00003319 
00003320 



T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0319 
0321 
0323 
0327 
0329 
0332 
0334 
0335 
0337 
0337 
0337 
0338 
0339 
0340 
0342 
0342 
0344 
0362 
0364 
0366 
0371 
0373 
0375 
0375 
0375 
0378 
0378 
0380 
0360 
0381 
0399 
0401 
0403 
0403 
0404 
0405 
0406 
0409 
0410 
0412 
0415 
0416 
0418 
0418 
0416 
0442 
0445 
0448 
0450 
0451 
0452 
0452 
0454 
0455 
0455 
0456 
0485 
0485 



ES ThENX 

TYPEJJX 
,FORM*POINTERS THENX 

»INDEX] f TYPEl«THlSlD.TYPEJX 

% 



if thiSid,idcuass«typ 

BEGINS 

T|*TYPETABI[THISID, 
IF T,FORM<ALFA OR T 
BEGIN* 

NAMETAB3CCURLEVEL 
END ELSE E«R0R(38)J 
END ELSE ERRQR(7)JX 
END ELSE ERRORC!)>X 
END ELSE ERR0R(9)IX 
INSYMBOLU 
END ELSE IF FUN ThENX 
BEGIN ERR0R(26)J SmP(SEMl 
ENDJX 
END ELSE BEGIN ERR0R(9>I SKlP(S 
IF CURSY#$EMICOLON THEN BEGIN E 
IF FUN THEN GEN("FUNCTN"# 7,2 ) E 
GENC"PROCEDU*#6»i)j QENIDCV", 
Tl.NAMETAB3CCURLEVEL»lNDEX],INF 
IF TX>T THENX 
BEGINS 

GENC"(«M,7)IX 

FOR II«T*i STEP 1 UnTiL TX DO 
BEGIN GENIDC M V"»1Q00X{CURLEVE 
IF BOOLEANCPARAMTABtlJ.PARA 
BEGJNX 

GENCN-fl.rm 

GENIDC"F ,, »lOOOx(CURLEVEL+ 

GEN(»,%1,7)|X 

GENlD<"I%100Qx(CURLEVEL+ 

ENDJS 

IF I LSS TX THEN GENC"»"tl, 
ENDU 

GEN(")I",2#6)I* 
VALUEPARAMSMFALSEIX 
FOR !I»T*1 STEP 1 UNTIL TX DO 
IF PARAMTABtI3,PARAMKiND«CONST THENX 
BEGINS 

IF NOT VALUEPARAMS THEN* 

BEGIN GEN<"VALUE",6 t 3m 
VALUEPARAMS|«TRUEU 

END ELSE GENC"«"«if7)Jf 

GENlD( w V w tj000x(CURLEVEL+i)+PARAMTABnJ,PARAMNAME.5)IS 
ENDIS 

IF VALUEPARAMS THEN GEN<"J",1 
DECLAREVARS{TRUE»PARAMTAB.T*1 
END ELSE GENC"l»»l»7)jX 



COUON) END1X 

EMICOLON) ENDIX 

RRQR(25)I SKIP(SEMICOLON) END;X 

LSEX 

i000xcURLEVEL*lNDEXt5)|S 

0* TXI»UPARAMTAB[T3J X 



L*l) + PARAMTABU3iPARAMNAME»5)|X 
MFILE) THENX 



l) + PARAMTABtn,PARAMNAME»5m 
l)+PARAMTABtI],PARAMNAME»5)IX 
7)t% 



IX 



.7)1* 

#TX»CURLEVEL*i>JX 



insymbolix 

IF CURNAMEl*"7FoRWAR" AnD CURNAME2«"D" THENX 
BEGINS 

nameTab3[curlevel»indexj,forharddef«»iix 

NUMFORWARDSlwNUMFORwABDS+llX 

GEN<"F0RWARD"i8iim 

JNSYMBOLIX 
END ELSEX 
BEGINX 



00003321 

00003322 

00003323 

00003324 

00003325 

00003326 

00003327 

00003328 

00003329 

00003330 

00003331 

00003332 

00003333 

00003334 

00003335 

00003336 

00003337 

00003338 

00003339 

00003340 

00003341 

00003342 

00003343 

00003344 

00003345 

00003346 

00003347 

00003348 

00003349 

00003350 

00003351 

00003352 

00003353 

00003354 

00003355 

00003356 

00003357 

00003358 

00003359 

00003360 

00003361 

00003362 

00003363 

00003364 

00003365 
00003366 
00003367 
00003368 
00003369 
00003370 
00003371 
00003372 
00003373 
00003374 
00003375 
00003376 
00003377 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



0485 
0487 
0487 
0489 
0491 
0492 
0496 
0497 
0498 
0499 
0501 
0501 
0502 
0504 
0504 
0506 
0509 
0518 
0543 
0546 
0547 
0546 
0557 
0561 
0575 
0576 
0577 
0586 
0600 
0609 
0625 
0625 
0635 
0635 
0644 

0645 
0649 
0651 
0651 
0652 
0661 
0662 
0674 
0688 
0688 
0698 
0701 
0711 
0711 
0711 
0713 
0714 
0717 
0718 
0727 
0728 
0728 



X 
% 



% 

% 



END 



CURLEVEL1«CURLEVEL+1»* 

IF CURLEVEUUSTREC THEN ERRQR<55m 

BLOCKTAB[CURLEVElJUNUMBLOCKSi«NUMBL0CKS+lJX 
TUCURFUNCI CUREUNC»«IF FUN THEN INDEX ELSE Ml* 
BL.OCKI X*** COMPILE PROCEDURE BODY *** 
REPLACE POINTeRCNAMeTaBHCURLEVEL,*]) BY OX 

for maxnames+1 words** 
curlevelucuRuevel-i* curfuncutix 
toplevelucurleveux 

END1X 

IF CURSY#SEMICOLON THEN BEGIN ERR0R(25>* SKIP(SEMICOLON) 

GEN("l"»l«7)IX 

IF SYMKIND[CURSY]i'INITlAL THEN JNSYMBOL** 

OF PROCEDURE DECURAT lONI* 



ENDIX 



IF NUMFORWARDS>0 THEN £RRoR(44)|X 

GEN("lNTEGER w t8.1)IX 

FOR Il«i STEP i UNTlU MAXTEMPS DOX 

BEGIN GENlD( w T w f I»2)IX 

IF I<MAXTEMPS THEN gE{$( "»"t 1 » 7) ELSE GEN( "I ", 1 . 7) I X 
ENDIX 

IF CURSY#BEGINSY THENX 
BEGIN ERR0R(39)IX 

WHILE SYMKIND[CURSYj#lNlTiAL DOX 
BEGIN INSYMBOLTSKIPCSEMICOLON) ENDIX 

IF(CURSY*TYPESY)OR(CONSTSYSCURSY AND CURSYSPRQCSY ) THENX 
GO TO STARTlX 
ENDIX 

IF CURLEVEt«l THENX 
BEGlNX 

GFN( w lNlT(",5#3)lX 

IF INPUTDECL THEN GEN( "TRUE"i 4. 4) ELSE G£N("FALSE"t 5. 3) I % 
GEN(")l"t2»6m 
ENDIX 

FOR I!»FIRSTFILE STEP i UnTjl NUMFIUES DOX 
IF FILETABCIJ USS THENX 
BEGINS 

GEN("CHFIL("»6,2)|X 

GEN I DC "F"#l000xCURLEvEL-F!LETA6[ 13-1,5) IX 

GEN(»)I«,2»6)IX 

endx 

ELSEX 

BEGjNX 

GENlDC w I w »l000xcURLEVEU+FlLETAB[n»5)IX 

GEN(%*,1. 7)1 GEN("BUFSI2E"*7#1)* GEN(»I*80J "*5»3) I % 

ENDIX 

NUMFILES|»FIRSTFILE-IIX 



COMPSTATI 



X*** COMPILE STATEMENT PART *** 



FOR Il»LASTREC STEP 1 UNTlL TQPREC-1 DOX 

REPLACE POINTERCNAMETABltI»*3) BY FOR MAXNAMES*1 WORDSlX 

FOR II»FIRSTUAB STEP 1 UI*TU NUMLABS DOX 

IF LABTABtI3,UABDEF»0 THEN eR r QR(93)IX 

lastrec»»toprecix 

NUMLABSl.LABTABTOPiX 



00003378 
00003379 
00003380 
00003381 
00003382 
00003383 
00003384 
00003385 
00003386 
00003387 
00003388 
00003369 
00003390 
00003391 
00003392 
00003393 
00003394 
00003395 
00003396 
00003397 
00003398 
00003399 
00003400 
00003401 
00003402 
00003403 
00003404 
00003405 
00003406 
00003407 
00003406 
00003409 
00003410 
00003411 
00003412 
00003413 
00003414 
00003415 
00003416 
00003417 
00003418 
00003419 
00003420 
00003421 
00003422 
00003423 
00003424 
00003425 
00003426 
00003427 
00003426 
00003429 
00003430 
00003431 
00003432 
00003433 
00003434 



0731 
0732 
0734 
0736 
0739 
0740 
0742 
0746 
0748 
0749 
0749 
0751 
0760 
0762 
0763 
0763 
0763 
0766 
0775 
0777 
078V 
0808 
0811 
0811 
0813 
0814 
0816 
0819 
0819 
0819 
0820 
0821 
0830 
0852 
0661 
0861 
0864 
0865 
0865 
0874 
0886 
0897 
0897 
0897 
0900 
0913 
0940 
0942 
0943 
0943 
0944 
0944 
0948 
0957 
0958 
0963 
0963 



B 



END 



FlRSTLABleFoRMERFlRSTLABJSK 

NUMCONSTSl»CONSTTABTOP|X 

NUMTYPESmTYPETABTOP^X 

NUMPARAMS»«PARAMTABTOP|* 

IF CURLEVEL>1 THEN GEN( "END"i 4.5 ) I X 

OF BLOCK)* 



00003435 


T 


0964 


00003436 


T 


0965 


00003437 


T 


0966 


00003438 


T 


0966 


00003439 


T 


0967 


00003440 


T 


0977 



40 IS 988 LONG. NEXT SEG 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
X % 

X X 

X X 

% PART 9| THE MAIN PROGRAM, X 

X X 

% X 

% % 

% % 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

X 

X 

INTEGER PROGNAMEtENGTHU 
PRTC404) « PROGNAMELENGTH 

ALPHA PROGNAME»ALGOUNAMElX 
PRTC405) m PROGNAME 
PRTC406) * AUGOUNAME 

X 

AU0LNAMEI""PASc000«ReNTIER(TiMec4)M0D 10)[l7l5»6]|X 

ALG0LNAMEI«ALG0LNAME&ENTIER(TiMe(4)0IV rj| Il#5l63 JX 

ALG0LNAMEI*ALG0LNAMESENTlER(TiMp(4)M0D 9) [5151 6] is 

USERl*TiME(»l)IX 

FILL PASCALGOL WITH ALGOLNAME , USERl X 

H r C T NX 

FILE PASCRUN DISK SERIAL "PaSCRUNVDISK" (2»10*|50)II 
» *SEG«ENT DESCRIPTOR* 



00003442 
00003443 
00003444 
00003445 
00003446 
00003447 
00003446 
00003449 
00003450 
00003451 
00003452 
00003453 
00003454 



0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 



00003455 T 0375 



PRTC407) 
PRT(4|0) 
PRT(4iH 



00003456 
00003457 
00003456 
00003459 
00003460 
00003461 
00003462 
00003463 



0375 
0375 
0376 
0382 
0386 
0387 
0391 
0391 



* PASCRUN 

* BUF 

X 



PRTC4123 * EOF 



ARRAY BUF[0|9m 

label eofix 
while true do* 

BEGINS 

READ(PASCRUN#9,BUF[*J) [E6FJJX 



START OF SEGMENT ********** 
00003464 T 0004 



41 



00003465 
00003466 
00003467 
00003466 
00003469 



WRITE(PASCALGOLilO*BUFC*J)l* 
ENDlX 
EOFIX 

END OF TRANSFER OF RUN TIME SySTEMlX 
PRT(4i3) * *SEGMENT DESCRIPTOR* 

CARDLENgTH«»72IX 

INITIALIZE! NEWCARDIX 

LlSTOPTlONi*CHECKOPTIONl*TRUE|X 

Cl»" "I INSYMBOLIX 

IF CURSY»PROGRAMSY THENX 

BEGINS 

INSYMBOLIX 

IF CURSY»IDENTIFIER THENX 

BEGIN* 

PR0GNAM£l*CURNAMElt[35>36}l 

INSYMBOLIX 

IF CURSYwLPAR THENX 

BEGINS 

DO BEGINS 
INSYMBOLIX 



00003470 T 

00003471 T 

00003472 T 

00003473 T 

41 IS 21 LONG. 



PR0GNAMELENGTHI«MIN(6.CURLENGTH)IX 



00003474 
00003475 
00003476 
00003477 
00003478 
00003479 
00003480 
00003481 
00003482 
00003483 
00003484 
00003485 
00003486 
00003487 
00003488 



0006 
0006 
0006 
0007 
0007 

0013 
0017 
0017 
0016 

NEXT SEG 
0394 
0394 
0460 
0462 
0463 
0464 
0464 
0465 
0465 
0466 
0470 
0471 
0471 
0472 
0473 



INPUTDECU*TRUE ELSEX 
OUTPUTDECLIbTRUE EUSEX 



ELSEX 
ERRORC73)IX 



IF CURSY*IDENT!FIER ThENX 
BEGINX 

IF CURNAMEl^SOiNPUT" THEN 

IF CURNAME1« W 60UTPUT W THEN 

BEGIN* 

if curle.ngTh>6 then ERRoR(77m 
numextfilesi«numextfiles*iix 
if numextfilessmaxextfiles then! 

EXTFlLETABtNUMEXTFlLES]|*CURNAMEl 
IF NUMEXTFIUES«MAXEXTFILES+1 THEN 
ENDIX 
END ELSE ERR0RC9)JX 
INSYMBOLU 
END UNTIL CURSY#COMMAU 

IF CURSY#RPAR THEN BEGIN ERR0RC46)! SK I PCSEMI COLON ) ENDIX 
IF CURSY«RPAR THEN INSYMBOLIX 

IF CURSY««SEMicOLON T H EN BEGIN ERR0R(25)I SkiPCSeMJCQLQN ) ENDIX 
END ELSE BEGIN ERR0RC58)! SKI P( SEMI COLON) ENDIX 
END ELSE BEGIN ERR0R(9)I SKlP( SEMI COLON) ENDIX 
END ELSE BEGIN ERR0R(75)J SK 1 PC SEMI COLON) ENDIX 
INSYMBOLIX 
CURLEVELi*llX 
LASTRECI*MAXTABLES+1IX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x X 

BLOCKI X COMPILE USER PROGRAM, X 

x X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

IF CURSY#D0T THENX 
BEGINX 

ERR0R(76)JX 

DO BLOCK UNTIL CURSY«DoTlX 
ENDIX 

IF FALSE THENX 
BEGINX 
ENDOFINPUTI ERR0R(87)I CHARCnT |«"1 |X 

WRITE(LINES,TERMMeSS)IX 
ENDIX 
IF LlSTOPTlON AND CHARCNTfcO T H EN PRiNTLINeIX 

if eRRinx>o then prjnterrorsix 

WRlTE(LiNEStDBL])IX 
WRlTE(LlNES[DBL])IX 
IF NUMERRSnO THENX 
BEGINX 

ARRAY ZIPARRAY[0I19]» Z(0|0]|X 
PRT(4l«) m *SEGMENT DESCRIPTOR* 



00003489 
00003490 
00003491 
00003492 
00003493 
00003494 
00003495 
00003496 
00003497 
00003498 
00003499 
00003500 
00003501 
00003502 
00003503 
00003504 
00003508 
00003506 
00003507 
00003506 
00003509 
00003510 
00003511 
00003512 
00003513 
00003514 
00003515 
00003516 
00003517 
00003516 
00003519 
00003520 
00003521 
00003522 
00003523 
00003524 
00003525 
00003526 
00003527 
00003526 
00003529 
00003530 
00003531 
00003532 
00003533 



0473 
0474 
0474 
0476 
0481 

0483 
0485 
0486 
0487 
0466 
0491 
0491 
0493 
0493 
0494 
0497 
0499 
0502 
0504 
0506 
0508 
0508 
0509 
0510 
0510 
0510 
0511 
0511 
0511 
0511 
0512 
0513 
0514 
0514 
0515 
0515 
0517 
0520 
0520 
0565 
0567 
0571 
0575 
0576 
0576 



PRT(4lO) « ZlPARRAY 
PRTC4H) « Z 



PRT(4i59 



ZlPPNT 
X 



POINTER ZlPPNTlX 



DEFINE ZlPTEXT(TEXT,L)»X 
BEGIN* 

ZtO]l»TEXTlX 

REPLACE ZIPPNTIZIPPNT BY PO INTERCZ t *) )+C8-L) FOR LIX 

END#IX 



START OF SEGMENT ********** 42 



00003534 T 0005 

00003535 T 0005 

00003536 T 0005 

00003537 T 0005 

00003538 T 0005 

00003539 T 0005 

00003540 T 0005 



PRT(4i6) s ZlPNUM 



PROCEDURE ZIPNUM(N); X TRANSFERS A NUMBER TO THE ZlF BUFFER. 

value nl integer nix 

if n<9 Then ziptexT(N,d elbex 

BEGIN ZIPNUMCN DI V lO)| Z I PTEXT C ENTl ER( N MOD iO),l) ENDJX 



00003541 T 0005 

00003542 T 0005 

00003543 T 0005 

00003544 T 0005 

00003545 T 0014 



I 

I 

1 



PRT(4iH » 



PRT(420) s 



END 
♦SEGMENT 



WRITEALGOLIX 

WRITECPASCALG0U»UASTLINE)|X 

LOCK(PASCALGOL»SAVE))X 

ZlPPNTl*POINTER(ZlPARRAY[*J)|X 

REPLACE ZIPPNT BY " " FOR 2» WORDSJX 

WRITE(LINES,N0ERR0RS)IX 

ZlPTEXTCCC "»3)J 

ZIPTEXTC" ",1)1 

ZlPTEXT("/",l)| 

ZIPTEXTC" XALG0L"i7)J 

IF SAVEFACT0R>0 THEN 

IF SAVEFACT0R<0 THEN 

ZIPTEXT("J",1)|X 

ZlPTEXT("XALG0L"i6)J 

ZIPTEXTC CARD*"t6); 

ZIPTEXTC"/*,!)! 

ZIPTEXTC" SERIAL W »7); 

IF SAVEFACTOR>0 THENX 

BEGlNX 

ZlPTEXT("SAVE*".5)l 

ZiPTEXT(»l«,i)J« 
ENDIX 

ZlPTEXT(«END,"t4)JX 
ZIP WITH ZIPARRAY[*]IX 
OF COMPILER ZIP ELSEX 
DESCRIPTOR* 



ziptextccompile w »7);x 
zlptext(progname»prognamelength)ix 

ZlPTEXT(USER»7)IX 

ZiPTEXTc- ",1)JX 
ZIPTeXT( w LIBRARY"#7)IX 
ZlPTEXTC"SYNTAX",6)!X 

ZjPTEXTC" FJLE"#5)IX 
ZlPTEXT(ALG0LNAME»7)U 
ZlPTEXT(USER,r)ix 
Z!PTEXT(«i".l)IX 



ZIPNUM(SAVEFACTOR)|X 



00003546 

00003547 

00003548 

00003549 

00003550 

00003551 

00003552 

00003553 

00003554 

00003555 

00003556 

00003557 

00003558 

00003559 

00003560 

00003561 

00003562 

00003563 

00003564 

00003565 

00003566 

00003567 

00003568 

00003569 

00003570 

00003571 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



0027 

0027 

0027 

0030 

0032 

0033 

0037 

0040 

0055 

0069 

0084 

0098 

0107 

0115 

0123 

0137 

0161 

0175 

0190 

0191 

0191 

0199 

0206 

0206 

0214 

0215 



BEGINX 

INTEGER I** 
♦SEGMENT DESCRIPTOR* 



PRT(4iO) « J 



SWITCH FORMAT ERRORMESSl l'% 



PRT(421) u ERRORMESSl 



42 IS 222 LONG. NEXT SEG 

00003572 T 0577 

00003573 T 0577 

START OF SEGMENT ********** 

00003574 T 0000 
START OF SEGMENT ********** 



43 



44 



*** COMPILER ERROR *** CONTACT THE COMPUTER CENTRE, ").X 

1 IDENTIFIER NOT DEFINED, ")»X 

2 IDENTIFIER ALREADY DEFINED. ")»X 

3 WRONG NUMBER OF PARAMETERS, "). X 

4 SYNTAX ERROR,"), I 

5 VARIABLE NOT ACCESSIBLE (HARDWARE 

6 STRINGS MAY NOT BE CONTINUED FROM 

7 A TYPE EXPECTED. ").X 

8 VARIABLE EXPECTED, »♦)# X 

9 IDENTIFIER EXpECTED,") »% 
10 INTEGER CONSTANT EXPECTED," )• X 



RESTRICTION), "),X 

ONE CARD TO ANOTHER, "),X 



00003575 


T 


0000 


00003576 


T 


0000 


00003577 


T 


0000 


00003578 


T 


0000 


00003579 


T 


0000 


00003560 


T 


0000 


00003581 


T 


0000 


00003582 


T 


0000 


00003583 


T 


0000 


00003584 


T 


0000 


00003585 


T 


0000 



(" 


11 


<" 


12 


C" 


13 


C" 


14 


(" 


15 


(* 


16 


C" 


17 


C" 


18 


C" 


19 


(" 


?o 


(" 


21 


(" 


22 


(" 


23 


C" 


24 


c 


25 


C" 


26 


(" 


27 


C" 


28 


<" 


29 


C" 


30 


c 


31 


C" 


32 


(" 


33 


(" 


34 


C" 


35 


c" 


36 


(" 


37 


(" 


38 


c» 


39 


(" 


40 


<" 


41 


C" 


42 


<" 


43 


<" 


44 


(" 


45 


C" 


46 


c« 


47 


C" 


48 


C" 


49 


C" 


50 


C" 


51 


c 


52 


(" 


53 


c» 


54 


C" 


55 


C" 


56 


C" 


57 


c 


58 


C" 


59 



CONSTANT OF OTHER TYPE THAN EXpECTEO ,") »X 

VARIABLE OF ILLEGAL TYPE,")»X 

UNRECOGNIZABLE STATEMENT ,") *X 

CONSTANT TOO BIG OR TOO SMALL. ")»X 

UNDEFINED LABEL, "),X 

FOR- AND CASE-STaTeMENTS NESTED TOO DEEP,")»X 

EXPRESSION IS OF WRONG TYPE,")»X 

"•"OF*"" EXPECTED. ")»X 

«««D0""" EXPECTED. ")»X 

"""ELSE""" WITHOUT CORRESPONDING """THEN"*",") » X 

ILLEGAL TERMINATION OF STATEMENT,").* 

"""UNTIL""" EXPECTED, ")»X 

" w "TO"""/"""DOWNTO""" EXPECTED,") »X 

"""END""" EXPECTED,"). X 

"""I""" EXPECTED, ")»X 

"""I""" EXPECTED, ").X 

"""THEN""" EXPECTED, ")»X 

»""!«»"" EXPECTED. ")»X 

ONLY NUMBERS MAY BE SIGNED, ").X 

TOO MANY CASES, ")»» 

LABEL USED MORE THAN ONCE,").X 

CONSTANT EXPECTED. Mil 

LABEL NOT IN RANGE 0,,9999,"),X 



TOO MANY LABELS DECLARED ,"). X 
TOO MANY CONSTANTS DECLARED,"). 
"""«""" EXPECTED, ")»X 



X 



THE LIST IS TOO LONG,").X 

INVALID TYPE FOR A FUNcT I ON," ) . X 

"""BEGIN""" EXPECTED, ").X 

TOO MANY IDENTIFIERS DECLARED,") . X 

ALFA CONSTANS MAY NOT BE LONGER THAN 7 CHARACTERS,"),* 

EXPRESSION IS NOT OF TYPE BOOLEAN, ").X 



X 




"""[""" EXPECTED,").* 

A SIMPLE TYPE EXPECTED ,"). X 



W»ff , 



AND 



... 



ARRAY OF RECORD""" ILLEGAL". X 



ARRAY OF ARRAY""" 
" AS FILE TYP£,")»X 
"""FILE OF FILE""" IS ILLEGAL, "),X 
SET BOUNDRY IS ToO BIG OR TOO SMALL, ").X 
TOO MANY UNDECLARED POINTERS, "), X 
""",,""" EXPECTED. ")»X 

FIRST VALUE IS GREATER THAN SECOND VALUE, ")»X 
TOO MANY RECORDS DECLARED AT 



TOO MANY RECORDS DECLARED AT ONE T 
THE RECORD CONTAINS MORE THAN 1023 
FILES NOT ALLOWED IN RECORDS, "),X 
"""(""« EXPECTED, ").X 

tfttw ittttft rvprrrrn Km( 



TIME,").X 
WORDS, ").X 



]""" EXPECTED, ")JX 



SWITCH FORMAT ERR0RMESS2 1*1 



PRT(422) s ERR0RMESS2 



C« 60 """ARRAY OF FILE""" NOT ALLOWED, ").X 

C" 61 RANGE OF INDEX IS GREATER THAN 1023, ").X 



00003586 T 0000 

00003587 T 0000 

00003588 T 0000 

00003589 T 0000 

00003590 T 0000 

00003591 T 0000 

00003592 T 0000 

00003593 T 0000 

00003594 T 0000 

00003595 T 0000 

00003596 T 0000 

00003597 T 0000 

00003598 T 0000 

00003599 T 0000 

00003600 T 0000 

00003601 T 0000 

00003602 T 0000 

00003603 T 0000 

00003604 T 0000 

00003605 T 0000 

00003606 T 0000 

00003607 T 0000 
00003606 T 0000 

00003609 T 0000 

00003610 T 0000 
000036U T 0000 

00003612 T 0000 

00003613 T 0000 

00003614 T 0000 

00003615 T 0000 

00003616 T 0000 

00003617 T 0000 

00003618 T 0000 

00003619 T 0000 

00003620 T 0000 

00003621 T 0000 

00003622 T 0000 

00003623 T 0000 

00003624 T 0000 

00003625 T 0000 

00003626 T 0000 

00003627 T 0000 

00003628 T 0000 

00003629 T 0000 

00003630 T 0000 

00003631 T 0000 

00003632 T 0000 

00003633 T 0000 

00003634 T 0000 

00003635 T 0000 

44 IS 590 LONG. NEXT SEG 

00003636 T 0000 

00003637 T 0000 
START OF SEGMENT ********** 

00003638 T 0000 

00003639 T 0000 



43 



45 



C" 

(" 
<" 
C" 
c" 
(" 
C" 
C" 
C" 
(" 
(" 
(" 
C" 
<" 
C" 
(" 
(" 
(" 
c 
C" 

C" 

(" 
(" 
C" 
C" 
(" 

C" 
C" 
C" 

C" 
<" 

(" 

C" 
{" 
(" 
<" 
(" 
C" 



62 
63 
64 
65 
66 
67 
66 
69 
70 
71 
72 
73 
74 

75 
76 
77 
78 
79 
60 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
96 
99 
* 



UNSATISFIED POINTER DECLARAT iON," )» * 
EXPRESSION IS TOO feONG,").* 

ILLEGAL OPERATOR FOR THIS TYPE OF EXPRESSI ON, ") » % 
INTEGER EXPRESSION EXPECTED," )» X 
A SET EXPECTED. ")»X 
PARAMETER OF ILLEGAL TyPE,">#X 
PROCEDURES NOT ALLOWED IN THIS CONTEXT,"},* 
ILLEGAL USE OF ThIS TYPE OF IDENT IF I ER,") . X 
TOO MANY PARAMETERS DECLARED IN THE PROGRAM ,") , X 
"""ARRAY OF CHAR""" EXpECTED,") ,X 
WRONG TYPE OF SET EXPRESSION,") »X 
TOO MANY EXTERNAL FILES, ")#X 
ILLEGAL IDENTIFIER FOR EXTERNAL FILE,"),* 
"""PROGRAM""" EXpECTED,")#* 
""",""" EXPECTED AT END OF PROGRAM,"),* 

EXTERNAL FILE IDENTIFIER MAY NOT EXCEED 6 CHARACTERS,"),* 
ILLEGAL FILE PARAMETER,"),* 

ILLEGAL USE OF FiLf HANDLING PROCEDURE, ")»* 
TEXT-FILE EXPECTED,"),* 
POINTER VARIABLE EXPECTED,").* 

ONLY VALUES OF TYPE REALt INTEGER OR CHAR MAY BE READ,").* 
VARIABLES IN RECoR&S ILLEGAL IN THIS CONTEXT,"),* 
DISPLAY OVERFLOW,"), X 

READ AND WRITE MAY ONLY BE USED ON TEXT-FILES,").* 
REFERENCED OBJECT IS TOO BIG,"),* 
END-OF-INPUT DI SEVERED," ) • X 
CHARACTER ARRAY EXPECTED,") # X 
""",""" EXPECTED,").* 

PROCEDURES MAY NoT HAVE ANY TYPE,").* 
PARAMETER OF WRONG KIND,")»X 

ONLY COMPLETE ARRAyS AND RECORDS MAY BE TRANSMITTED,").* 
DECLARED LABEL NOT USED,")#X 
PARAMETERS OF THlS TYPE SHOULD NOT 
ASSIGNMENT OF STRUCTURED VARIABLES 
INPUT/OUTPUT NOT DECLARED ,"). * 
TOO MANY FILES IN USE,")»X 
RECORD IDENTIFIER EXPECTED,").* 
UNRECOGNIZABLE ITEM,").X 



BE VALUE PARAMETERS,"), X 
NOT IMPLEMENTED,").* 



* 
X 

WR ITE(LINES. ERRORS, NUMERRS)IX 
PRT(423) » *LIST. LABEL. OR SEGMENT DESCRIPTOR* 

FOR ll»0 STEP l UNTjL 59 oO IF 
WRlTEtLINES.ERRORMESSltJ])!* 
FOR I 1*60 STEP 1 UNTIL U9 DO IF 
WRITE(LINES»ERR0RMESS2CI-60])|X 
END OF ERROR MESSAGESIX 
♦SEGMENT DESCRIPTOR* 



>5 IS 4 



ERR[J1 thenx 
ERRtN THENX 



00003640 T 

00003641 T 

00003642 T 

00003643 T 

00003644 T 

00003645 T 

00003646 T 

00003647 T 

00003648 T 

00003649 T 

00003650 T 

00003651 T 

00003652 T 

00003653 T 

00003654 T 

00003655 T 

00003656 T 

00003657 T 

00003658 T 

00003659 T 

00003660 T 

00003661 T 

00003662 T 

00003663 T 

00003664 T 

00003665 T 

00003666 T 

00003667 T 

00003668 T 

00003669 T 

00003670 T 

00003671 T 

00003672 T 

00003673 T 

00003674 T 

00003675 T 

00003676 T 

00003677 T 

00003678 T 
30 LONG. 

00003679 T 

00003680 T 

00003681 T 



PRT(424) s 



00003682 T 

00003683 T 

00003684 T 

00003685 T 

00003686 T 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 
NEXT SEG 
0000 
0000 
0000 

0007 
0008 
0015 
0016 
0023 



43 



PRT(425) 
PRTC4269 



MERGE 



if xrefoptiOn then* 

BEGIN* 

REPLACE P0INTER(XREFLINE[*J) BY " " FOR 17 WORDSjX 

HEADING** 

SORT (PRlNTXREF.XREFFILE»0,XREFMAX,XREFCOMP ARE* 3. 1000.6000) IX 
0000 369 iO0O0000OOH03+66QOl7EDlTjONO0OOO0 304 



43 IS 28 LONG. NEXT SEG 



00003687 
00003688 
00003689 
00003690 
00003691 



0576 
0578 
0578 
0583 
0604 



PRT<4£7) « SORT 



END or 



COMPILER.* 



PRTC300) w EXP INTRINSIC* SEGMENT NUMBER ■ 
PRTC277) * LN INTRINSIC, SEGMENT NUMBER * 
PRT(242) * OUTPUTCW) INtRjNSiCi SEGMENT NUMB 
PRT(5) * BUOCK CONTROL INTRINSIC* SEGMENT NU 
PRT(427» m SORT INTRINSIC. SEGMENT NUMBER ■ 
PRT(301) s X TO THE I INTRINSIC. SEGMENT NUM 
PRT(273> » GO T0 SOLVER INTRINSIC. SEGMENT 
PRT(H) « ALGOL WRITE INTRINSIC SEGMENT N 
PRT(15) * ALGOL READ INTRINSIC. SEGMENT N 
PRT(16) * ALGOL SELECT INTRINSIC, SEGMENT N 
PRT(426) » MERGE INTRINSIC SEGMENT NUMBER * 
PRT(34) * FILE ATTRBUTS INTRINSIC SEGMENT N 
PRT(240J * DYNABIC DIALS INTRINSIC SEGMENT 
PRT(271* « STRNfi SCAN INTRINSIC SEGMENT 
PRT(2065 « STRNG REPLACE INTRINSIC SEGMENT 



47. 
48, 
ER * 
MBER * 
5|, 

beR « 

NUMBER * 
UMBER n 
UMBER » 
UMBER ■ 
i»7, 

Umber * 

NUMBER * 
NUMBER » 
NUMBER * 



49, 
50, 

52, 

m 53, 

54, 
55, 
56, 

56, 
59, 
60, 
61, 



00003692 T 0624 

00003693 T 0624 

2 IS 630 LONG. NEXT SEG 

START OF SEGMENT ********** 

46 IS 4 LONG. NEXT SEG 



1 
62 



IS 
IS 



2 

69 



LONG. 
LONG. 



NEXT 

NEXT 



SEG 
SEG 



1 

46 

i 








FPB 

OOO1O2OO 
00000000 
43250005 
63010007 
00110200 
02000000 
10636411 
00U6432 
00767405 
01632360 



00000000 
00000047 
144721#2 
14000000 

ooooooeo 

00000000 

00000000 

45121000 
55316473 
41571663 



00006246 

21622321 
23516445 
00000000 
00002462 
24625163 
10546H3 
00222141 
01U0530 
01741054 



64512325 
43271147 
24316242 
24625163 
51630460 
06606005 
20000000 
16345200 

71060221 
52130240 



60042321 
21622321 
60606007 
0260600S 
60052462 

2462516 3 
10457536 
00326571 
01212657 
02051267 



51240002 
43274643 
47216223 
24625163 
51630400 
06001402 
04000000 
420 36440 
07274266 
64556310 



OlOOOOOO 
00041400 
51644500 
02001002 
12020000 
00000000 
10373465 
00434327 
01315432 
02163545 



00000000 
00000000 
06140000 
00000000 

00000000 

00000024 
45000000 
72446150 

71153343 
617H772 



43314525 
00006751 
00000000 
00000024 
00246251 
62516307 
10111240 
00543415 
01420741 
02310047 



62606005 
25262631 
00246251 
62516303 
63056060 
60600524 
27620000 

71157602 
47406234 
71627437 



43314525 
43106751 
63016060 
60600524 
05246251 
62516307 
00013510 
00654321 
01525132 
02412061 



62000314 

25262631 
05246251 
62516303 
63050013 
00000000 
35564000 
27413543 
01307703 
70175347 



SEGDICT 

00000000 
00000000 
00031500 
00032301 
00033600 
OOO353OO 
OOO375O1 
00041400 
10027700 
10001400 
I0027i00 
00000000 



00000000 

07600097 
76200lf5 
40500264 
530004|4 
21600503 
4ii006j7 
33601000 
00100017 
00100022 
00100041 
00000047 



00002200 
00000000 
00031601 
00032501 
OOO34OOO 
00035700 
OOO374OO 
00042000 
10024200 
10001500 
10020600 
21622321 



0020H26 
10100012 
42000}42 

71700321 
35200430 
32300510 

62100651 
03401077 
00100001 
00100023 
00100042 
4327U47 



OOOO24O1 
00020001 
00032000 
00032700 
00034300 
OOO361O1 
00037701 
20042l0i 
10000500 
10001600 
20003300 
21622321 



I66O11OO 
36200051 
27100216 
11200316 
54000440 
27700550 
72200667 
11601034 
00100002 
00100024 
1050U27 
43274643 



200J7600 
20027500 
00032100 
00033100 
00034500 
00036300 
00040i00 
20042200 
10042700 
10042600 
00000000 
00041400 



05600001 
01600050 
32500225 
36300363 
13000454 
04400600 
23500730 
65601060 
00100004 
00100027 
00000000 
00000000 



00020500 
00031300 
00030200 
20033200 
00034700 
00036500 
00040201 
20022400 
10030100 
10003400 
43314525 
00006751 



15100003 
75200103 
66700235 
00700362 
22200457 
13500602 
73400736 
0040U25 
00100006 
00100150 
62606005 
25262631 



00022301 
00031400 
00030300 
00033400 
00035100 
00034200 
00040700 
10030000 
10027300 
10024000 
43314525 
43106751 



43500015 
63600124 
17000254 
72100374 
64700464 
36400606 
02500777 
00100020 
00100021 
00100040 
62000314 
25262631 



43250005 14472162 
63010007 14000000 
00110200 oooooooo 



23516445 24316242 60606007 47216223 51644500 06140000 00000000 00246251 63016060 05246251 
00000000 24625163 0260600} 24625163 02001002 00000000 00000024 62516303 60600524 62516303 
00002462 51630460 6005246* 51630400 12020000 00000000 00246251 63056060 05246251 63050013 



PRT 



00000000 
00000000 
65406600 
67400100 
00000000 
00000000 

oooooooo 

00000000 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

66400300 

oooooooo 

6502H00 

oooooooo 
oooooooo 
oooooooo 

65406100 

oooooooo 
oooooooo 
oooooooo 

66042400 
65405700 
OOOOOOOO 
65401300 

oooooooo 

66402300 
65403000 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
65404500 
65405000 
OOOOOOOO 
65405200 
66041700 
65406100 
OOOOOOOO 



OOOOOOOO 
OOOOOOOO 
06600000 
00100000 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

00300000 

oooooooo 

00200145 
00000000 

oooooooo 
oooooooo 

06100000 

oooooooo 
oooooooo 
oooooooo 

00201004 
05700000 

oooooooo 

01300630 

oooooooo 

023016*2 
03000525 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

04500612 
05001723 

oooooooo 

05200006 
00201102 
06100000 

oooooooo 



oooooooo 
oooooooo 

65406700 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

65400*00 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

65020200 

oooooooo 
oooooooo 
oooooooo 

65406500 
65406400 

oooooooo 

65031700 

65402200 

65402500 
OOOOOOOO 

65403300 
65035500 
65404000 
OOOOOOOO 
65037600 
OOOOOOOO 
OOOOOOOO 
66041300 
OOOOOOOO 
65020200 
OOOOOOOO 



OOOOOOOO 
OOOOOOOO 
06700000 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

00400146 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

00200333 

oooooooo 
oooooooo 
oooooooo 

06500000 
06400000 

oooooooo 

01400755 
02201370 
02500361 

oooooooo 

03300126 
03600213 
04001274 
OOOOOOOO 
04401376 
OOOOOOOO 
OOOOOOOO 
0020H01 
OOOOOOOO 
00200333 
OOOOOOOO 



oooooooo 
oooooooo 

65407000 
65027200 
OOOOOOOO 
OOOOOOOO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

65027600 

65407500 

65021200 

oooooooo 
oooooooo 
oooooooo 

65024300 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

65402000 

oooooooo 

66401500 

oooooooo 

66402600 
65403100 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

65404400 
OOOOOOOO 
664O5iO0 
66042300 
65407100 
65024300 
OOOOOOOO 



OOOOOOOO 
OOOOOOOO 
07000000 
00201163 
OOOOOOOO 
OOOOOOOO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

01001350 

07500000 

00200202 

oooooooo 
oooooooo 
oooooooo 

00200363 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

02000661 

oooooooo 

01501403 

oooooooo 

02600000 
03100350 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

04400000 

oooooooo 

05100022 
05300032 
07100000 
00200363 

oooooooo 



oooooooo 
oooooooo 
oooooooo 
oooooooo 

66407600 
OOOOOOOO 

oooooooo 

OOOOOOOO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

65400200 

oooooooo 
oooooooo 

65400500 

oooooooo 
oooooooo 

65024400 

oooooooo 
oooooooo 
oooooooo 

66401100 
65402100 

oooooooo 

66401400 
65033000 
OOOOOOOO 
OOOOOOOO 
65403400 
66035600 
65404100 
OOOOOOOO 
65404600 
OOOOOOOO 
66024500 
66405400 
65406300 
65024400 
OOOOOOOO 



OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
07600000 
OOOOOOOO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

00200105 

oooooooo 
oooooooo 

00501432 

oooooooo 
oooooooo 

00200365 

oooooooo 
oooooooo 
oooooooo 
01100000 

02100000 

oooooooo 

01400H4 
02301705 

oooooooo 
oooooooo 

03400000 
03600207 
04100042 

oooooooo 

04601704 
OOOOOOOO 
00200612 
05400000 
06300000 
00200365 
OOOOOOOO 



OOOOOOOO 
OOOOOOOO 

oooooooo 
oooooooo 

65407200 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

65024100 

oooooooo 
oooooooo 

66405600 

oooooooo 

65407300 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

66401000 

oooooooo 
oooooooo 

65401600 

oooooooo 

65402700 
65404300 
OOOOOOOO 
66403600 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

oooooooo 

66041600 
66405500 
65407300 
OOOOOOOO 
OOOOOOOO 



OOOOOOOO 
OOOOOOOO 

oooooooo 
oooooooo 

07200000 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

OOOOOOOO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

00200273 

oooooooo 
oooooooo 

05600000 

oooooooo 

07300000 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

01000641 

oooooooo 
oooooooo 

01600266 

oooooooo 

02700714 
04300362 

oooooooo 

03600210 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

05200334 
05500000 
07300000 
OOOOOOOO 
OOOOOOOO 



65406200 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

65020100 

oooooooo 
oooooooo 
oooooooo 

64021400 

oooooooo 
oooooooo 
oooooooo 

65407400 
65406000 
OOOOOOOO 
65401200 
65401700 
66402400 
OOOOOOOO 
65403200 
65403500 
65403700 
65404200 
OOOOOOOO 
65404700 
66041200 
OOOOOOOO 
64405300 
64021400 
OOOOOOOO 
OOOOOOOO 



06200000 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

00200133 

oooooooo 
oooooooo 
oooooooo 

00200323 

oooooooo 
oooooooo 
oooooooo 

07400000 
06000000 

oooooooo 

01200746 
01700322 
02400000 

oooooooo 

03200532 
03500637 
03700321 
04200132 
OOOOOOOO 
04700231 
05100023 
OOOOOOOO 
05300003 
00200323 
OOOOOOOO 
OOOOOOOO 



00000000 00000000 00000000 00000000 oooooooo 00000000 00000000 00000000 00000000 00000000 00000000 00000000 



SEGZERO 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 



OOOOnSft OOOOOOOO 00000077 OOOOOOOO 0000H37 OOOOOOOO 00000430 

00000001 OOOOOOOO 65200014 oooooooo oooooooo oooooooo oooooooo 

oooooooo oooooooo oooooooo oooooooo oooooooo oooooooo oooooooo 

oooooooo oooooooo oooooooo oooooooo oooooooo oooooooo oooooooo 

oooooooo oooooooo oooooooo oooooooo oooooooo oooooooo oooooooo 



OOOOOOOO 0000H32 

oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 



OOOOOOOO 00000044 

oooooooo oooooooo 

oooooooo oooooooo 

oooooooo oooooooo 

oooooooo oooooooo 



NUMBER OF ERRORS DETECTED * 0, COMPILATION TiME * 477 SECONDS, 

prt size * 2801 total segment size * i5836 words* disk size * 720 segsj no, pgm, segs « 62 

ESTIMATED CORE STORAGE REQUIRED m 27326 WORDS. 
ESTIMATED AUXILIARY MEMORY REQUIRED « WoRDS, 

NUMBER ©F CARD-IMAGES PROCESSED * 3685, 



BURROUGHS B-57OO XALGOL COMPILER MARK XVI, 0,120 WEDNESDAY. 04/19/78* 1 1 58 PM, 



PASCAL. /JUNK 



SOURCE FIL.EI ELPASO /U819005 



A — ALPHA »• DECLARED 
♦00000537* 00000540 
A — REAL ARRAY — NAME 
A — REAL ARRAY -«• NAME 

♦00000597* 
A " REAL ARRAY — NAME 
A — REAL ARRAY •» NAME 
00000604 00000609 

a •- Real array •• name 
a — real array — name 

00000625 
ABSX — REAL — DECLARE 

♦00000329* 00000330 
ADDADOR — LABEL « DEC 

00001176 
ADDR •" INTEGER •* DECL 
♦00002819**00002847* 
A Lr A "• DEFINE — OFCLA 

00000513 00001554 

00002312 00002660 
ALFACONST — DEFINE — 

OOOOlOO? OOOO1554 
ALFANUM -- DEFINE •• DE 

00000891 00000897 

alfatype — Integer — 

•00000512* 00001506 
ALGOLCARD — REAL ARRAY 

00000360 00000361 
ALgOL C NT -• INTEGER — 

00000321 *0000032«* 
♦0000 1 80?** 0000 1880* 
♦0000 i9 l| ♦♦0000 19 12^ 

00001955 *0000l957* 
*0000 1975**0000 19 76 + 
♦0000 1999 ♦♦0000200 U 
♦000020 30^^000020 34^ 
♦00002088++00002099+ 
♦00002 165**000021 69* 
♦00002278**0000229 3* 
♦00002361 ++00002 375 ♦ 
♦0000244 6**00002454* 
*0000296©**0000 296i* 
*00002980*^00002982^ 

00003025 *00003026* 
♦00003042+ 00003043 
♦0000 3059++0000 3060* 
♦00003344**00003347* 



IN SEGMENT 

♦00000547* 

PARAMETER 

PARAMETER 

PARAMETER 
PARAMETER 

PARAMETER 
PARAMETER 



5 AT 00008469 

00000553 
— DECLARED IN SEGMENT 2 
-• DECLARED IN SEGMENT 2 



DECLARED IN 
DECLARED IN 



SEGMENT 2 

segment 2 



•• declared in segment 2 
- declared in segment 2 



AT 

AT 

AT 

AT 

AT 

AT 



00000594 
00000595 

00000601 
00000602 

00000613 
00000615 



D IN SEGMENT 4 AT 00000316 

*00000332**00000333* 00000334 00000335 

LARED IN SEGMENT lo AT 00001163 •• OCCURS AT 00001226 



ARED IN SEGMENT 37 AT 00002814 



00002878 *00002879* 
00000089 

00001852 00001970 

00003202 00003324 
g AT 00000i94 

00001993 00002312 
AT 00000858 

2 AT 00000161 
00001554 00002312 



00002913 
00001975 



00002852 00002856 
RED IN SEGMENT 2 AT 

00001750 00001847 

00002664 00002896 
DECLARED IN SEGMENT 

00001946 0000i962 
CLARED IN SEGMENT 2 

00000901 
DECLARED IN SEGMENT 

00001521 00001525 
— DECLARED IN SEGMENT 2 AT 00000128 

00000362 00000363 00000485 
DFCl-ARED IN SEGMENT 2 AT 00000130 

0000032 7 #00000328**0000033 8** 0000033 9**00000342 
*0000 1900**0000 190 1**0000 1902**00001 90 3*^0000 1904 
♦0000 19 1 8 ♦♦OOOOi 925^*0000 1926**0000 1927**0000 1929 

♦ 0000 1958^0000l 959^0000 196Q^00001 964^0000 1965 
♦0000 19 77 **0000l982* # 0000 1986 ♦♦0000 1989++0000 1992 
♦000020 ^♦♦000020 11**00002012**00002014**00002024 
* 000020 35**000020 36**000020 37**00002046**00002063 

♦ 0000 2 106**0000 2 11 3**0000 2 127**00002 128**00002 129 
♦0000 22 18**00 00 2222**00002228**0000224 6**000 02250 
♦0000 2295**00002309**00002317**00002330**00002333 
*0000 2379**00002 390**0000239 1**0000240 1**00002429 
•00002455**00002456**0000245 7**0000245 9**000024 72 
* 0000 29 65**00002*66** 0000296 7**0000 29 68**0000 29 7 1 
*00002986**00002990**0000 30 11**00003012**00003013 
♦00003027**00003028**00003029* 00003030 *0000303l 
♦0000 3044**0000 3045**0000 3046**0000 304 7 **0000 3048 

♦ 0000 3064*+00003l67*+00003l71 ♦♦00003 176++0000 3185 
♦0000 3348**0000 3349**0000 3350**0000 3352**00003354 



00001993 00001994 00002090 00002110 



00002660 00002664 00002896 00003202 



00002660 00002664 00002896 00003202 



**00000343 
**0000l905 
**0000l938 
**00001966 
♦♦00001993 
♦♦00002025 
♦♦00002065 
♦♦00002137 
♦♦00002258 
♦♦00002340 
♦♦00002431 
♦•00002543 
♦♦00002974 
♦♦00003014 
♦•00003034 
♦♦00003051 
**00003l88 
**00003360 



**00000344* 
♦♦00001906* 
**00001948* 
**00001969* 
♦*00001994* 
♦♦00002026* 
**00002066* 
**00002l44* 
♦♦00002266* 
**00002343* 
♦♦00002432* 
**00002582* 
♦♦00002975* 
**000030l5* 

**00003036* 
♦♦00003054* 

**00003337* 
**00003362* 



♦00000363 
♦00001907 
♦00001949 
*00001973 
♦00001995 
♦00002027 
♦00002074 
♦00002151 
♦00002267 
♦00002352 
♦00002443 
♦00002956 
♦00002976 
♦00003018 
♦00003040 
♦00003056 
♦00003338 
♦00003363 



**0000Q485* 
♦♦00001910* 
♦♦00001950* 
♦♦00001974* 
♦♦00001996* 
♦♦00002028* 
**00002078* 
**00002152* 
♦♦00002275* 
♦♦00002353* 
♦♦00002445+ 
♦♦00002959* 
♦♦00002979+ 
**00003022* 
**00003Q4l* 
**00003058* 
♦♦00003342+ 
**00003365* 



*00003 367**0000 3 374**0000 3389**0000 3395**0000 3 397**00003 398**0000 3409**0000 34 10**0000 341 1**0000 34 16**0000 3417* 
*000034 18**00003422**0000 3423**00003439* 
AUOLNAME — ALPHA -- DECLARED iN SEGMENT 2 AT 00003455 
*00003457**00003458**00003459* OOOO3461 00003561 

ALGOLPNT • • POINTER •- DECLARED IN SEGMENT 2 AT 00000129 

*0O000328**0O0OO328**O0O0O336**O0OO0339**0OO0O341**O0OO0 34 3**00000344**0O0O0 36 3* 00000 364 *00000485* 00000486 
*0000 1807**0000 1880**0000 1900**0000 1901**00001902**0000 1903**0000 1904**0000 1905**0000 1906**0000 1907**0000 19 10* 
♦00001 911**00001 912**00001 91 8**0000 1925**00001 926**00001 92 7**00001 929**0000 193 8**0000 1948**0000 194 9** 0000 1950* 
*0000 1956**0000 1958**0000 1959**0000 i960** 00001 964**0000 1965^*0000 1966**0000 1969**0000 1973**0000 1974**0000 1975* 

♦ 0000 1976**0000 1977**0000 1982**0000 1 988**0000 1989**0000 1992**0000 199 3**0000 1994 ♦♦0000 1995**0000 1996**0000 1999* 
*0000200f**000020 10**000020 11**00002012**00002014**00002024**00002025**00002026**00002027**00002028**00002030* 
♦000020 34**000020 35**0000 20 36**0000g0 37**00002046**00002063**0000 2065**00002066**0000207 4**00002078**00002088* 
*00002099**00002 106**000021 13**00002 127**000021 28**00002 129**000021 37**000021 44**0000215 1**00002152**00002 165* 
*00002 169**000022 18**0000 2222**00002228**00002246**00002250**00002258**0000 2266^*00002267**0000 2275**0000 2278* 
♦00002293**00002295**00002309**000023 17**00002330**00002333**00002340^^00002343^^00002352^^00002353**00002361* 
♦00002375**00002 379 **00002390^^0000 239 i*»0000240 1**00002429**000024 3 1**000024 32**00002443**0000 2445**0000 2446* 
♦00002454**00002455**00002456**00002457**00002459**00002472**00002543**00002582**00002956**00002959**00002960* 
♦0000296 l**00002965**00002966**00002967**00002968^^0000 2971 ♦♦000029 74^^0000 2975^+00002976**00002979 ♦♦0000 2980 ♦ 
*0000298iH**00002 986**00002 990**0000301 1**0000301 2**0000301 3**00003 01 4 **0000301 5**0000301 8**00003022** 00003 02 6* 
* 0000 3027^^0000 3028**0000 3029^^ 0000 30 3 i+*0000 30 34^+0000 30 36^^0000 3040^^0000 304 ^♦OOOO 304 2^^0000 3044^*0000 3045+ 
♦0000 304|**0000 3047**0000 3048**0000 305 1 **0000 3054**0000 3056*^0000 3058 ♦♦0000 3059^0000 3060^0000 3064 ♦♦0000 3 167 ♦ 

♦ 00003 17 1^0000 31 76^00003185^0000 3 1 88**0000 3337^0000 3 338^ 0000 3342^0000 3 344^0000 334 7^0000 3 348**0000 3349* 
♦00003358**00003352**00003354**00003360**0000 3362**0000 336 3**00003365**00003367**0000 3374**00003389^0000 3395^ 
♦0000 3397 ♦♦0000 3398^^0000 3409^+0000 34 10 ♦♦OOOO 34 1 1^^0000 34 16^^0000341 7^0000 34 18 ♦♦OOOO 3422**0000 3423^0000 34 39^ 
»• FORMAT — DECLARED IN SEGMENT 3 AT 00000187 

00001049 
— DEFINE -» DECLARED IN SEGMENT 2 AT 00000196 

00000476 00000918 00001638 0000i649 

— DEFINE •-- DECLARED IN SEGMENT 2 AT 00000094 

00001 19J 00002059 00002122 00002723 00002983 
ARRAYSY — DEFINE •» DECLARED IN SEGMENT 2 AT 00000206 

0000093S 00002712 
ARRAYVAR — BOOLEAN — DECLARED IN SEGMENT 

00002954 ♦00002957^00002965^ 00002974 
ARROW — DEFINE — DECLARED IN SEGMENT 2 A T 

00000475 00000476 00001182 00001262 
ARRSTRUcT — INTEGER •• DECLARED 

♦00002738**00002742* 
ARRTYPE — DEFINE — DECLARED IN 

00001198 00002062 00002125 



ALIST 
ANDSY 
ARRAYS 



IN 



38 AT 00002943 

♦00002975* 00002989 *00002990* 00003064 

00000201 

00001263 00002686 

Segment 36 a t 00002647 



SEGMENT 2 
00002723 



AT 00000096 
00002741 00002742 



IN SEGMENT 26 AT 00002201 



AT 00000201 
00002234 00002423 
AT 00000195 



ASSIGN — LABIL -- DECLARED 

00002229 00002234 
ASSIGNMENT — PROCEDURE •• DECLARED IN SEGMENT 2 AT 00002198 

00002237 00002560 00002584 
ASSJGNSY •• DEFINE *• DECLARED IN 

00001027 00002208 00002209 
ASTERISK — DEFINE — DECLARED IN 

00000476 00001629 00001636 

AX — INTEGER — DECLARED IN SEGMENT 

♦00000589**00000590* 00000591 
AO — REAL -i DECLARED IN SEGMENT ? AT 00000577 

*00000604* 00000606 00000606 *00000625* 00000626 
Al -- REAL — DECLARED IN SEGMENT 2 AT 00000577 

♦00000604* 00000607 *00000625* 00000626 00000647 
A2 ■»• INTEGER »- DECLARED IN SEGMENT 2 AT 0§000578 

♦00000623^ 00000626 00000635 00000638 *00000640^ 00000650 
8 — REAL ARRAY — NAME PARAMETER — DECLARED IN SEGMENT 2 AT 



00002983 



OCCURS AT 00002208 



SEGMENT 2 

00002233 
SEGMENT 2 
00001649 

2 AT 01000578 



00002425 00002426 



00000645 00000646 00000648 00000649 



00000651 
00000601 



B — REAL array — namf 

00000604 00000609 
BESINNUM — INTEGER •• DECLARED 

*0Q002245* 00002258 
BE6INSY -• DEFINE -• DECLARED IN 

00000935 00002246 00002586 
BITPATTERN — DEFINE •• DECLARED 



parameter •■ declared in segment 2 at 00000602 
in segment 87 at 00002242 

AT 00000202 



B L A NK 



00001306 
00001794 

"• define 

0000088g 
00000981 
00001035 



SEGMENT 2 
00003400 

IN SEGMENT 

00001617 

00002267 



00001441 00001564 
00001797 00001802 

"" DECLARED I N SEG M E N T 2 A T 
00000685 00000890 00000693 
00000983 00000984 
00001038 00001041 
*- PROCEDURE •» DECLARED IN 
0000338a 00003440 00003514 



2 AT 00000212 
00001645 00001666 



00002353 
00000856 
00000899 
00001005 
00001059 



00002391 



00001699 00001706 00001726 00001752 00001767 



00000901 
000010U 
00001066 



00001002 
00001054 
BLOCK *- PROCEDURE •- DECLARED lN SEGMENT 2 AT 00003147 

00003520 
BLOCKTAB — REAL ARRAY — DECLARED IN SEGMENT 2 AT 00000136 

00000589 *00002793**00003380* 
BOOLEXPR — DEFINE •• DECLARED IN SEGMENT 2 AT 00001812 
00002267 00002353 00002391 

DECLARED IN SEGMENT 2 AT 00000161 
00001435 00001441 00001561 00001643 



00000965 
00001025 
00001067 



00000966 
00001027 
00001070 



00000969 
00001029 



00000973 
00001031 



00000980 
00001033 



BOOLTYPE — INTEGER 

♦00000516* 00000524 

00002391 
BRAC K FTSINWITH •• DEFINE 

00001172 00002504 
BUF 



00001697 00001797 00001971 00002267 00002353 



DECLARED IN SFGMENT 2 AT 00000077 



BO 



Bl -. 



Real array — declared in segment 41 at 00003464 

00003468 00003470 

in segment 

00000608 

in segment 



REAL 
♦00000604* 

REAL — 
*00000604* 
ALPHA — 

00000882 



DECLARED 
00000606 
DECLARED 
00000607 
DECLARED 

♦00000885* 



2 AT 00008577 
2 AT 00008577 



IN SEGMENT 2 AT 00000861 
00000887 00000889 *00000890* 00000891 
*0000090U 00000962 00000964 *00000965**00000966* 00000967 
♦00000975* 00000978 *00000980**0000098l* 00000982 *00000983**00000984* 
♦00001025* 00001026 *0000l027* 0000i028 ♦00001029* 00001030 *0000l03l* 
00001036 *0000i038* 00001039 *0000-i04i* 00001042 00001043 00001044 
00001053 *00001054**00001059* OOOO1O6O 00001063 *0000 1066**00001067* 
C •• INTEGER — DECLARED IN SEGMENT 2V A T 08002287 

♦00002325* 00002327 
CALLGEN — BOOLEAN -- DECLARED IN SEGMENT 16 AT 00001735 
*0000l768**0000l775* 00001796 



00000892 *00000893* 00000897 00000898 ♦00000699^ 
♦00000969* 



00000970 
00001000 
00001032 
00001045 
00001068 



00000972 *00000973* 00000974 

♦ 0000 1 002^*0000 1005^0000 101 1^ 
♦00001033^ 00001034 ♦00001035^ 

00001046 00001047 00001049 

♦ 00001070^0Q003477^ 



CARD 



CAROCNT • 



PILE — DECLARED IN SEGMENT 2 AT 00000033 
00000884 00001065 00003475 

INTEGER — DECLARED IN SEGMENT 2 AT 00000032 
00000360 00000407 00000589 ♦00000884**00001065* 00001196 
00001492 00001607 00001862 00001907 00001912 00001960 

♦00003475* 00003527 



00002430 00002444 
CAROLeNgTh — INTEGER « DECLARED 

00000398 00000884 00000956 

00003475 
CARDPnT « POINTER -- DECLARED IN 



00001312 
00001999 



IN SEGMENT 2 AT 00000158 

OOOO1O5? *0000l053**0000i054* 0000l055 



.w,„.u.. -- uuv^"., tw »„ SEGMENT 2 AT 00000129 
♦0000088 B+*00000884**00000885**00 000890**0000089 3**00000 899**00000901* 
* 0Q00096f ♦♦0000097 3^ 00000980^+00000 981 ♦* 0000098 3^ 00000984* ♦ 0000 1002^ 
kOOOO 1029**0000 103 1**0000 10 33**0000 10 35**0000 10 36**0000 104 1**0000 1054* 
*0000l06F**0000 1070**0000 34 75* 
CASEHASH — DEFINE ••. DECLARED IN SEGMENT 2? AT 00002285 

00002328 
CASENUM — INTEGER -- DECLARED IN SEGMENT 29 AT 00002287 



00001416 00001467 00001478 00001485 
00002037 00002099 00002144 00002220 

*0000i056* 00001057 OOOO1O65 *00003474* 

*00000957* 00000958 *00000965**00000966* 
*0000 1005**0000 101 1**00001 02 5** 00001 02 7^ 
*0000 1059**0000 1064**0000 1065**0000 1066* 



♦00002290* 00002343 
CASEPART — LABEL — DECLARED IN 

00002822 
CASESTAT •- PROCEDURE -- DECLARE 

00002346 00002588 
CASESY « DEFINE — DECLARED IN 

00000386 00000931 00002586 
CASETaB — INTEGER ARRAY -- DECL 

00002325 +00002327+ 



CASETYPE — INTEGER — DECLARED 
♦00002295* 00002296 *00002297 

CASETYPE '" INTEGER — DECLARED 
♦00002873* 00002874 00002878 

CASETy^EID — LABEL — DECLARED 

0000286$ 

CH -- REAL ARRAY — DECLARED IN 

0000048! 00000885 00000890 

00000981 00000983 00000984 

0000103$ 00001035 00001038 

♦00001904**00001925**00001926 

♦00002011**00002012**0000 20 34 

♦0000244 $♦♦00002^54 ♦♦0000 2455 

♦0000 3047^*0000 3059** 0000 3 176 

CHANGFtlNE — BOOLEAN — VALUE P 

CHANGELINE • • BOOLEAN — VALUE P 

00001923 
CHAR •- DEFINE •• DECLARED IN $E 
00000521 0000H97 00001301 
00001721 00001790 00001793 
00002219 00002223 00002316 
00002875 00002901 
CHARCNT — jN?EGE R — PECURED I 
00000396 *00000883**00000884 
♦00000966**00000969+* 0000097 3 
♦0000 1021 ♦♦0000 1027 ♦♦0000 1029 
♦ 0000 1059 ♦♦0000 1064 ♦♦0000 1065 
CHARCONST — BEFlNE — DECLARED 

OOOOiOil 0000J552 00001554 
CHARPnT •• POINTER -- DECLARED 1 



*0000048>* 00000885 
00000981 00000983 
00001031 00001033 
00001903 00001904 
00002016 000020H 
00002429 00002443 
00003018 00003047 
00003422 
CHARTyPE — INTEGER — 

♦00000520* 0000jp44 
CHECK -- BOOLtAN — DECLARED IN 

♦00001301* 00001302 00001308 
CHECK -- BOOLEAN »- DECLARED IN 

•0000189$* 00001901 00001908 
CHECKEXPR — DEFINE — DECLARED 

00001196 00001416 00002220 

CHECKoPflON — ' BOOLEAN — DECLAR 

*0000104§ # 00001196 00001301 



00000890 
00000984 
00001035 
00001925 
00002012 
00002454 
00003059 

DECLARED 
00001421 



SEGMENT 37 

D IN SEGMEN 

SEGMENT 2 A 

00002822 
ARED IN SeG 

IN SEGMENT 
♦ 00002299 
IN SEGMeN T 
00002888 
IN SEGMENT 

SEGMENT 2 A 

00000893 
00001002 
00001041 

♦♦00001927* 
♦♦00002035+ 
♦♦00002457+ 
♦♦00003338* 

arametek * 

ARAMETER - 

GmEnT 2 AT 
00001355 
00001897 
00002415 

n Segment 2 

♦♦00000885+ 

♦♦00000960* 
♦♦00001031+ 

♦♦00001066^ 

IN SEGMENT 
OOOOgaij 

N SEGMENT 2 
00000693 
00001002 
00001038 
00001926 
00002034 
00002455 
00003176 



AT 00002817 — OCCURS AT 00002855 

T 2 AT 00002283 

T 00000203 

MENT 29 AT 00002286 

29 AT 00002287 

00002302 ♦00002315^ 00002316 
37 AT 00002814 
♦00002899^ 00002901 
37 AT OOOO2817 — OCCURS AT 00002873 



T 00000126 
00000899 
00001005 
00001054 

♦0000l948+^ 

♦ 00Q02036^ 

♦ 00002472^ 
♦00003344++ 

DECLARED 
DECLARED 

60000087 
00001449 
00001970 
00002433 

AT 0000013 

♦ 00000890^ 
#0000098l+^ 

♦ 00001033^ 

♦ 0000i067^ 
I AT OOOOOl 

00002660 

AT 0000012 

00000899 

00001005 

00001041 

00001927 

00002035 

00002457 

00003336 



00000901 00000965 00000966 
00001011 00001016 00001025 
00001059 00001066 00001067 
00001 949++0000 1 950**00001 964*+ 
0000206 3 ♦♦000021 27 ♦♦00002228 *♦ 
0000254 3**0000 296 1 ♦♦00002968++ 

0000 3348++0000 3350++00003363+* 
IN SEGMENT 2 AT 00001875 
IN SEGMENT 2 AT 00001876 



00000969 
00001027 
00001070 * 
00001965** 
00002293** 

00002976** 
00003397** 



00000973 

00001029 

00001902* 

00001966* 

00002317* 

000030li^ 

00003417* 



00001464 
00001976 
00002447 



00000893+ 

00000983+ 

00001035+ 

00001070+ 

95 

00002664 

7 

00000901 

00001009 

00001054 

00001948 

00002036 

00002472 

00003344 



00001596 
00001995 
00002660 



♦00000899^ 
♦00000984+ 
♦00001038^ 
♦00003475+ 



00001597 
00002062 
00002664 



OOOOI6O4 
00002075 
00002722 



00001605 
00002125 
00002763 



00000980 
00001031 
♦00001903+ 
♦00002010* 
♦00002429^ 
♦00003018+ 
♦00003422+ 



00001658 
00002138 
00002779 



♦00000901+ 
+00001002** 
♦00001041+ 
+00003524* 



00000956 00000957 ♦00000965* 
00001005* 00001006 *000010U* 
00001052 *00001054^00001057 + 
00003527 



00002774 00002891 00002896 00003202 



00000965 
000010U 
00001059 
00001949 
00002063 
00002543 
00003348 



00000966 
00001016 
00001066 
00001950 
00002127 
00002961 
00003350 



00000969 
00001025 
00001067 
00001964 
00002228 
00002968 
00003363 



00000973 
00001027 
00001070 
00001965 
00002293 
00002976 
00003397 



00000980 
00001029 
00001902 
00001966 
00002317 
000030H 
00003417 



IN SEGMENT 

0000i554 

SEGMENT 11 



g AT 00000161 

00002312 00002660 
AT 00001282 



00002664 00002896 00003202 



SEGMENT 18 AT 00001879 



IN SEGMENT 
00002430 

ED IN SEGME 
00001699 



2 AT 00001144 

00002444 
NT 2 AT 00000157 

00002219 00002430 



00002444 ♦00003476+ 



CHEC*TYPeS — DEFINE — DECLARED I n SEGMENT 
00001197, 00001355 00001597 OOOO16O5 
00002433 00002447 0000290i 

— DECLARED IN SEGMENT 2 aT 
00001026 00001978 OOOO1983 
00003103 00003256 00003258 
- DECLARED IN SEGMENT 2 AT 



COLON •- 



COMMA 



00002316 

DEFINE 
00000475 
00002918 
*•• DEFINE 
00000477 00001207 
00001919 00001945 
00002677 00002732 
00003502 
COMPSTAT •• PROCEDURE -' 
00002268 00002586 
PROCEDURE — 



2 AT 00000660 
00001658 00001721 



00001357 
00002002 
00002837 



00001358 
00002072 
00002839 



00000201 
00002334 
00003259 
00000200 
00001606 
00002076 
00002906 



00002335 
00003312 

00001609 
00002111 
00003102 



00001790 
00002545 



00001848 
00002135 
00003184 



00001793 00002075 00002138 



00002547 00002840 00002864 



00001853 
00002173 
00003185 



00001856 
00002330 
00003186 



CONCAT -• 



CONST 



0000149* 
'- DEFINE 
00000524 
00002410 
0000335? 



' DECLARED IN SEGMENT 2 AT 00002240 

00003427 
DECLARED IN SEGMENT g AT 00001833 • 



00001872 

*• DECLARED In SEGMENT 2 A* 00000062 

00000532 00001299 00001323 00001393 

00002559 00002660 00002664 00002666 



FORWARD AT 00001089 



00001395 
00002896 



segment 2 
00002660 

SEGMENT 2 



AT 00000731 
00002664 00002896 
AT 00000207 



CONSTANT -<• DEFINE — ' DECLARED jN 

00001554 00001619 00002312 
CONSTSY *- DEFINE — DECLARED IN 
00000939 00003192 00003404 
CONSTTAB — RIAL ARRAY — DECLARED IN SEGMENT 2 AT 00000116 

♦00000534* 00001398 00001554 00002312 00002660 00002664 
CONSTTABTOP -- INTEGER — DECLARED IN SEGMENT 40 AT 00003155 

•00003160* 00003436 
CONTYpE -• INfEGER — DECLARED IN SEGMENT 29 AT 00002287 

♦00002311* 00002313 00002315 000023U 
CONVAl — INTEGER — DECLARED IN SEGMENT 29 AT 00002287 

*0000231|^ 00002317 00002321 00002324 00002325 00002327 
CTYPE — INTEGER " DECLARED IN SEGMENT 37 AT 00002614 

♦00002896^ 00002897 00002899 00002901 
CTYPE -* INTEGER — DECLARED IN SEGMENT 40 

♦0Q00320j^ 00003203 00003231 00003232 
CURFUNC -• INTEGER — DECLARED IN SEGMENT 

0000222? ♦00003381**00003385* 
CURKlNO -- INTEGER -- DECLARED IN 

*0000308f^00003090^ 00003097 
CURLENGTH — INTEGER 



AT 00003149 

00003262 00003263 
! AT 00000177 



♦00000889^ 00000891 

♦ooooiooe^ 00001009 

00001993 00002312 
CURLEVEL — INTFGF R — 
OOOO1168 00001,78 
00002053 
00002487 
00002896 
00003233 
00003326 
00003380 



00002064 
00002555 
00003096 
00003253 
00003338 
00003383 



DECLARED IN SEGMENT 
♦00000893^ 00000895 
♦00001010* 00001013 

00002660 00002664 
DECLARED IN SEGMENT 

0000i3j9 0000|345 



SEGMENT 39 AT 00003070 
OOOO3IO5 00003117 00003123 
2 AT 00000862 
00000897 ♦00000899^ 
00001014 00001018 
00002896 00003202 
AT 00000171 



00002082 00002116 
00002653 OOOO266O 
00003098 00003109 
00003265 00003270 
00003339 00003344 
♦00003385* 00003386 
CURMOpE -- INTEGER •- DECLARED IN SEGMeNt 

*0000i279^ OOOO13O6 ♦O0O0l364^+OOO0i386^^b0o6l399**6oO0l44l+ 

0000164ft 00001666 ♦00001668^ OOOO1684 00001700 00001707 
♦0000179Z^ 00001802 00002267 00002353 00002391 
CURNAME* — AbPHA -- DECLARED IN SEGMENT 2 aT 00000661 

♦ 00000889^00000892^00000903^ 00000907 00000906 00000909 



00001389 
00002126 
00002664 
00003136 
00003279 
00003346 
00003407 



0000i427 
00002159 
00002673 
00003166 
00003280 
00003350 
00003417 



2 AT 00000180 



00001554 
00003090 



00001894 
00003117 



00002086 
00003123 



00003202 00003218 



00003131 00003134 



00000903 
00001020 
00003483 



0000 
0000 
0000 
0000 
0000 
0000 
0000 



1554 
2227 
2674 
3167 
3292 
3363 
3422 



00000904 
00001554 
00003494 

OOOO1881 
00002312 
00002694 
00003198 
00003293 



00000956 
00001946 



00001890 

00002405 
00002791 

00003202 

00003307 



00001859 
00002332 
00003247 



00002205 
00003202 



00002896 00003202 *00003209^ 



00000958 
00001953 



0000i939 

00002412 
00002860 

00003212 
00003310 



00001562 
00001726 



00003366 00003372 ♦00003378* 
00003439 #00003510* 

♦0000 1564 ♦♦0000 1585^+00001617^ 
♦00001728^ 00001752 00001767 



00002223 
00002909 



00001887 
00002519 

00003257 



00002312 
00003203 



00000959 
00001959 



00002030 
00002413 
00002866 
00003226 
00003316 
00003379 



00001628 
00001794 



00000910 00000911 00000912 00000913 00000914 



00000915 
00000926 
00000937 
00001222 
0000144? 

00001513 
00002116 
00002579 
0000266$ 
000031*8 
00003370 

CURNAME2 — ABP 

♦00000889* 

00001518 

00002405 

00002703 

00003253 

CURSy — jNTesf 

OOOOO38JJ 

•00000949* 

*00001025* 

00001036 

00001343 

00001432 

00001531 

00001609 

0000168Q 

00001756 

00001848 

00001919 

00002002 

00002096 

00002175 

0000225* 

0000233Q 

00002380 

00002436 

0000254* 

00002594 

00002710 

0000277l( 

00002851 

00002919 

00003l0f 

00003196 

00003238 

00003289 

00003481 

CURTYPE -* IN*E 

♦00001175* 

*00001228* 

*00001338* 

♦0000l42i* 

♦0000l47f ♦ 

♦ 0000151U 

♦00001554* 

♦00001616* 



00000916 
00000927 
00000938 
00001319 
00001455 
00001518 
00002151 
00002571 
00002673 
00003202 

00003483 
HA — DEC 
+00000898* 
00001554 
00002487 
00002832 
00003275 ♦ 

R *• DECl- 
OOOOO383 

+00000951+* 
00001026 ♦ 
00001182 
00001357 
OOO0H33 
00001552 
00001610 
00001689 
00001757 
00001853 
00001920 
00002003 
00002097 
00002176 
00002256 
00002332 
00002381 
00002439 
00002547 
00002651 

00002712 
00002789 
00002858 

00002911 
00003137 
00003200 
00003241 
00003290 
00003485 
GER — DE 
♦00001179* 
♦00001229* 
♦00001339** 
+00001427+* 
+ Q0O0U75* 
+00001516+* 
00001560 ♦ 
00001631 



00000917 
00000926 
00000939 
00001345 
00001456 
00001522 
00002159 
00002572 
00002694 
00003226 
00003491 
UARED in 
00000945 
00001881 
00002555 
00002860 
00003278+ 

aRed in s 

OOOOO386 

00000952* 

00001027* 

00001186 

00001358 

00001439 

00001554 

00001612 

00001694 

00001758 

00001856 

00001921 

00002004 

00002107 

00002179 

00002268 

00002334 

00002382 

00002441 

00002553 

00002660 

00002715 

00002801 

00002864 

00002915 

00003138 

00003202 

00003247 

00003312 

00003489 

CUARED IN 

00001191 

00001234 

00001340* 

00001435* 

00001476 

00001521+ 

00001561+ 

00001643 



00000918 
00000929 
00000940 
00001389 
00001458 
00001533 
00002312 
00002573 
00002703 

00003253 
00003492 
SEGMENT 2 
00000947 
00001890 
00002567 
00002862 
00003279 
EGMENT 2 A 
♦00000906* 
♦00000953* 
00001028 
00001207 
00001359 
00001446 
00001556 
00001629 
00001695 
00001759 
00001859 
00001939 
00002030 
000021U 
00002l8o 
00002271 
00002335 
00002383 
00002448 
00002586 
00002664 
00002732 
OOOO26O2 
OOOO2866 
00002919 
00003140 
00003215 
00003248 
00003316 
00003502 

segment 2 

00001192 
♦00001237* 
♦00001350* 
♦00001439* 
♦00001479* 
♦00001525* 
♦00001569* 

00001653 



00000919 

00000930 

00000941 

00001407 

00001473 

00001554 

00002405 

00002574 

00002832 

00003275 

00003497 

AT 0000086 

00000949 

00001939 

00002575 

00002868 

♦00003284+ 

T 00000178 

100000907* 

00000955 
♦00001029* 
00001208 
00001361 
00001450 
00001567 
00001631 
00001702 
00001769 
00001864 
00001941 
00002038 
00002114 
00002208 
00002273 
00002337 
00002386 

00002451 
00002587 
00002665 
00002733 
00002821 
00002886 
00003081 
00003169 
00003216 
00003257 
00003336 
00003503 
AT 000001 
00001197 
00001238 
♦00001352^ 

00001440 

♦00001463+ 

♦00001534+ 

+00001585+ 

00001655 



00000920 
00000931 
00000942 
00001412 
00001481 
00001881 
00002487 
00002576 
00002860 
*00003278* 



00000921 
00000932 
00000943 
00001423 
00001488 
00001890 
00002555 
00002577 
00002862 
00003279 



00000922 
00000933 
00000944 
00001424 
00001496 
00001939 
00002565 
00002579 
00002868 
♦00003284* 



00000923 
00000934 
00000945 
00001426 
00001498 
00002030 
00002566 
00002580 
00002896 
00003292 



I 
00001222 
00002030 
00002578 
00002896 
00003292 

♦00000913* 
+00000964+ 
00001030 
00001210 
00001387 
00001460 
00001572 
00001636 
00001709 
00001770 
00001871 
00001943 
00002039 
00002135 
00002210 
00002277 
00002340 
00002388 
00002468 
00002588 
00002671 
00002734 
00002822 
00002887 
00003085 
00003174 
00003217 
00003258 
00003388 
00003504 
79 

+00001198* 

♦00001244^ 

♦00001353+ 

♦00001441* 

00001466 

00001535 

00001595 

00001657 



00001319 
00002053 
00002653 
00003096 
00003307 

♦00000928 
+00000971 
+00001031 
00001213 
00001409 
00001469 
00001576 
00001637 
00001710 
00001773 
00001861 
00001945 
00002046 
00002141 
00002234 
00002298 
00002341 
00002403 
00002485 
00002589 
00002677 
00002749 

00002823 
00002890 
00003087 
00003185 
00003220 
00003259 
00003390 
00003505 



00001345 
00002082 
00002660 
00003109 
00003318 

++00000935* 
♦♦00000980* 
00001032 
00001220 
00001415 
00001470 
00001580 
00001638 
00001746 
00001774 
00001883 
00001946 
00002051 
00002142 
00002248 
00002301 
00002342 
00002423 
00002519 
00002590 
00002678 
00002752 
00002828 
00002891 
00003088 
00003186 
00003224 
00003267 
00003400 
00003517 



0000 

*0000 

0000 

0000 

♦ 0000 

+ 0000 

0000 

0000 



1204 
1259 
1355 
1449 
1490 
1536 
1596 
1658 



0000 

**0000 

*0000 

♦ 0000 

* 0000 

++0000 

0000 

*0000 



1205 

1260* 

1399* 

1453* 

1493 

1542* 

1597 

1659* 



00001389 
00002116 
00002664 
00003198 
00003370 

♦00000941* 
00000989 

♦00001033* 
00001263 
00001418 
00001475 
00001583 
00001641 
00001749 
00001779 
00001885 
00001967 
00002072 
00002154 
00002251 
00002305 
00002354 
00002426 
00002520 
00002591 

00002683 
00002754 
00002837 
00002896 
00003094 
00003187 
00003228 
00003268 
00003402 
00003520 

00001206 

00001264 

♦00001409* 

00001464 
+00001494* 
*00001548* 

00001603 
OOOOI661 



00000924 
00000935 
00000947 
00001427 
00001503 
00002053 
00002568 
00002653 
00003096 
00003307 



00001427 
00002159 
00002§73 
00003202 



♦00000945* 
♦00001002* 
00001034 
00001291 
00001419 
00001483 
00001198 
00001649 
00001754 
00001780 
00001887 
00001978 
00002076 
00002157 
00002252 
00002307 
00002357 
00002427 
00002522 
00002592 
00002686 
00002769 
00002839 
00002908 
00003102 
00003189 
00003236 
00003269 
00003404 



00000925 
00000936 
00000949 
00001437 
00001508 
00002082 
00002569 
00002660 
00003109 
00003318 



00001508 
00002312 
00002694 
00003226 



♦00000947+ 
♦00001015+ 
♦00001035+ 
00001317 
00001427 
00001490 
00001606 
00001678 
00001755 
00001643 
00001686 
00001983 
00002080 
00002173 
00002253 
00002312 
00002359 
00002435 
00002534 
00002593 
00002689 

00002772 
00002840 
00002909 
00003103 
00003192 
00003237 
00003287 
00003478 



0000 

♦ 0000 

0000 

0000 

♦0000 

+ 0000 

0000 
♦0000 



1217 ♦OOOO 
1327^ 0000 
1410 0000 
1465 0000 
l50l+^0000 
1549++0000 
1604 0000 
1663+^OOOQ 



1227 + 

1335 

1417 

1466 

1506 + 

1550* 

1605 

1664* 



CURVAL — 



CVAL 



CVAL 

ex ■ 



CI - 



0000168ft 00001691 00001697 00001716 00001718 
00001788 00001789 00001790 00001792 00001793 
00001658 00001861 *00001870**000016&1* 00001882 
0000197t 00001981 00001987 *0000203o* 00002032 
00002166 00002207 00002223 00002267 0000226V 
00002438 00002437 00002440 00002447 00002449 
REAB — DECLARED IN SEGMENT 2 AT 00000860 

♦00000964**00000966**00000972**00000992* 00000995 
00002472 00002537 00002543 OOOO266O 00002664 
•» REAU •- DECLARED IN SEGMENT 37 AT 00002816 

♦00002896* 00002900 00002904 00002905 

•»» Real •• declared in segment 40 at ogoo3iso 

*0000320|* 00003204 00003209 OOOO3211 
ALPHA • • DECLARED IN SEGMENT 2 AT O0OOO861 

00001044 00001045 00001046 
IN SEGMENT 40 AT 00803151 



0000172 
♦0000179 
0000189 
0000207 
0000227 
0000245 

♦0000099 
0000289 





7* 

6 

5 

2 

2 



00001721 
00001846 
00001910 
00002069 
00002295 
00002493 



*00001722**00001724* 



00001847 
00001911 
00002090 
00002353 
00002494 



00001851 
*00001939* 
00002110 
00002355 
00002500 



7**00001016* 
6 00003176 



♦00001021* 00001554 
00003177 00003179 



00001748 
00001852 
00001940 
00002138 
00002358 
00002501 

00002312 
00003182 



00001785 
00001855 
000Q1V68 
00002163 
00002391 



00002470 
00003202 



C2 



*0000l04t* 
ALPHA •• 

♦00003275^ 
ALPHA •" 

•00003275* 

Real 



00001042 

DECLARED 
00003284 

DECLARED IN SEGMENT 40 AT 00003151 
00003284 
DECLARfD IN SEGMENT 34 AT 00002481 



00001047 00001048 00001051 



♦ 00002500**0000250 i**00002502**00002503**i00002504**000025l 



VALUE 
VALUE 



decl -• boolean 
decl -- boolean 

00000229 

decl ■• boolean 
decl "" boolean 

00000581 
DECLARERS •• 
00003061 

Real 
00001168 
00002O82 

00002694 

** DEFINE 

0000091S 
DOLLAR — DEFINE 

00001039 
DOSY •* DEFINE 

00000908 
DOT -• DEFINE 

000004719 
DOUBLFDOT — DEFINE — 

00000478 00001029 
DOWN 



DISPLAY •- 



DIVSY 



-- VALUE 
-• VALUE 
00000590 
PROCEDURE 
00003270 
ARRAY • 
00001319 
00002H6 
00002860 



PARAMETER 
PARAMETER 

PARAMETER 
PARAMETER 



DECLARED 
DECLARED 

DECLARED 
DECLARED 



IN 
IN 

IN 
IN 



SEGMENT 
SEGMENT 

SEGMENT 
SEGMENT 



1* 00002512 
AT 00000228 
AT 00000232 



AT 
AT 



00000580 
00000584 



— DECLARED IN SEGMENT 2 AT 00002936 
00003366 

DECLARED 

00001345 

00002159 

00002866 

— DECLARED IN SEGMENT 2 AT 

00001641 00001661 

*•- DECLARED IN SEGMENT 2 AT 00000856 



IN SegMfNT 2 aT 00000072 
00001389 00001427 0000155 

00002405 

00003109 

00000196 



00002312 
00002696 



0000248 
0000320 



4 OOOO1881 
7 *00002512* 
2 00003318 



00001890 
00002555 



00001939 
00002653 



00002030 
00002660 



00002053 
00002664 



— DECLARED IN SEGMENT 2 AT 00000204 
00002354 00002356 00002357 00002448 
— DECLARED IN SEGMENT 2 AT 00000201 
00001028 00001182 00001213 00001232 

DECLARED IN SEGMENy 2 AT 00000200 
00001596 00002660 00002664 



00002450 00002451 
00001263 00003517 



00002520 00002521 00002522 
00003520 



'* BOOLEAN -* DECLARED IN SEGMENT 32 AT 00002398 
♦00002436^ 00002456 
OOWNToSY — DEFINE -• DECLARED JN SEGMENT 2 AT 00000205 

00000942 00002436 
DUMMY — INTEGER •» DECLARED IN SEGMENT 13 AT 00001406 
DUMMY -• INTEGER — DECLARED IN SEGMENT 2o AT 00002009 
OUMPOpTION — BOOLEAN — DECLARED IN SEGMENT 2 AT 00000157 

00000362 ♦00001046^ 
EDITION -- DEFINE " DECLARED IN SEGMENT 2 AT 00000026 

00000492 
ELSESy •• DEFINE »» DECLARED IN SEGMENT 2 AT 00000203 

00000929 00002251 00002277 00002380 
EMPTYSET — INTEGER — DECLARED IN SEGMENT 2 AT OOOOO162 

♦00000530^ 0000H97 00001355 OOOO1585 00001597 OOOO16O5 00001658 0000J721 00001790 00001793 00002075 



00002138 00002223 00002316 00002433 00002447 00002901 
ENDOFINPUT — LABEL -- DECLARED IN SEGMENT 2 AT 00000183 -- 

00000884 00001065 00003475 
ENDSY -- DEFINE •- DECLARED IN SEGMENT 2 A T 00000202 

00000913 00002254 00002255 00002256 00002307 00002337 
E°F -"* ^ABE^ "• DECtA R ED I n Seg*fNT 41 a t 06003465 — CC UR$ 



00003469 
•«■ DEFINE 

00000477 
— OEFJNE 

00001021 
BOOLEAN 



OCCURS AT 00003524 



00002342 00002801 
AT 00003472 



00002802 



EQLSY 
EQUAL 

ERR »■ 

♦00000395* 00003682 00003684 
ERRINX »• INTEGER — DECLARED IN 

•00000391* 00000397 00000398 
ERRLINE — REAL ARRAY — DECLARED 
00000398 00000408 00000410 



— DECLARED IN SEGMENT 2 aT 00000198 

00000927 00001758 0000i769 00001770 

-- DECLARED IN SEGMENT 2 AT 00000856 
00001030 00001034 

ARRAY — DECLARED IN SEGMEnT 2 AT 00000154 



00001779 00003200 00003228 



SEGMENT 2 AT 00000132 
♦00000400**00000411* 00000884 

IN SEGM F Nt 2 AT 00000131 

00000464 



00001065 00003475 00003528 



ERRNUM •— INTEGER — VALUE PARAMETER •• DECLARED 

ERRNUM mm INTEGER — VALUE PARAMETER •• DECLARED 

00000395 OOOOO399 OOOOO4OO OOOOO4O1 

ERRnUm — INTEGER -- VALUE PARAMETER -- DECLARED 

ERRnUm — INTEGER — VALUE PARAMETER — DECLARED 

00002641 00002643 
ERROR *" PROCEDURE — DECLARED IN 



IN 
IN 

IN 
IN 



segment 

SEGMENT 

SEGMENT 
SEGMENT 



2 AT 00000391 
2 AT 00000392 



36 AT 00002640 
36 AT 00002642 



00000402 
00000543 
00001006 
0000i20| 
00001229 
00001296 
00001336 
00001363 
00001429 
00001464 
00001483 
00001515 
0000156* 
00001604 
00001640 
0000168© 
0000171$ 
00001758 
00001783 
00001855 
0000l88f 
0000198F 
00002069 
00002110 
00002143 
00002223 
0000230* 
00002358 
00002424 
00002471 
00002546 
00002678 
00002751 



00000506 
00000544 
00001013 
00001202 
00001238 
00001302 
00001339 
00001397 
00001432 
0000H65 
00001484 
00001520 
00001563 
00001605 
00001641 
00001687 
00001721 
00001759 
00001790 
00001856 
00001882 
00001996 
00002070 
00002125 
00002166 
00002227 
00002312 
00002380 
00002430 
00002494 
00002580 
00002691 
00002760 



00000510 
00000553 
00001056 
00001203 
00001243 
00001303 
00001340 
00001398 
00001439 
00001466 
00001485 
00001524 
00001569 
00001607 
00001647 
00001694 
00001727 
00001761 
00001792 
00001661 
00001914 
00002003 
00002075 
00002126 
00002170 
00002251 
00002316 
00002381 
00002433 
00002496 
00002583 
00002702 
00002762 



SEGMENT 2 

00000514 

00000555 

00001170 

00001205 

00001248 

00001307 

00001348 

00001409 

00001440 

00001467 

00001486 

00001533 

00001574 

00001608 

0000i648 

00001695 

00001740 

00001762 

00001793 

00001862 
00001915 

00002030 
00002090 
00002130 
00002171 
00002252 
00002322 
00002365 
00002434 
00002505 

00002584 
00002715 
00002773 



AT 00000391 
00000518 00000522 



00000556 
00001178 
00001206 
00001258 
00001310 
00001349 
00001410 
00001445 
00001466 
00001490 
00001534 
00001576 
00001611 
00001649 
00001701 
00001743 
00001766 
00001795 
00001863 
00001916 
00002031 
00002091 
00002131 
00002172 
00002255 
00002327 
00002391 
00002437 
00002513 
00002595 
00002722 
00002779 



00000561 
00001180 
00001209 
00001260 
00001311 
00001352 
00001416 
00001449 
00001469 
00001491 
00001535 
00001577 
00001614 
00001650 
00001702 
00001744 
00001770 
00001796 
00001864 
00001917 
00002033 
00002092 
00002132 
00002175 
00002267 
00002329 
00002412 
00002440 
00002514 
00002643 
00002725 
00002780 



00000525 
00000564 
00001189 
00001216 
00001266 
00001312 
00001353 
00001417 
00001450 
00001471 
00001492 
00001547 
00001585 
00001619 
00001651 
00001708 
00001753 
00001774 
00001805 
00001865 
00001920 
00002038 
00002093 
00002133 
00002178 
00002269 
00002334 
00002413 
00002444 
00002515 
00002660 
00002727 
00002782 



00000527 
00000566 
00001193 
OOOO1218 
00001268 
00001328 
00001355 
00001418 
00001452 
00001475 
00001493 
00001549 
00001592 
00001626 
00001658 
00001709 
00001754 
00001775 
00001841 
00001866 
00001939 
00002062 
00002094 
00002138 
00002179 
00002272 
00002338 
00002418 
00002447 
00002516 
00002664 
00002733 
00002791 



00000531 
00000976 
00001194 
00001226 
00001269 
00001329 
00001357 
00001420 
00001453 
00001476 
00001500 
00001550 
00001596 
00001636 
00001661 
00001710 
00001755 
00001779 
00001847 
00001867 
00001940 
00002064 
00002095 
00002139 
00002209 
00002292 
00002342 
00002419 
00002449 
00002521 
00002668 
00002734 
00002796 



00000540 
00000986 
00001196 
00001227 
00001285 
00001330 
00001359 
00001427 
00001459 
00001477 
00001505 
00001554 
00001597 
00001637 
00001667 
000017U 
00001756 
00001780 
00001850 
00001866 
00001981 
00002067 
00002096 
00002140 
00002215 
00002297 
00002353 
00002420 
00002452 
00002538 
00002673 
00002137 
00002797 



00000542 
00000997 
00001197 
00001228 
00001293 
00001336 
00001360 
00001428 
00001463 
00001478 
00001510 
00001558 
00001600 
00001636 
00001677 
00001712 
00001757 
00001781 
00001852 
00001869 
00001985 
00002068 
00002096 
00002141 
00002220 
00002299 
00002355 
00002421 
00002471 
00002542 
00002676 
00002753 
00002801 



00002830 
00002885 
00003007 
00003131 
00003214 
00003267 
00003335 
00003505 



00002803 
0000288* 

00002993 
00003127 

00003213 
00003266 

00003338 
0000350$ 

ERRORMESSl — SWITCH FORMAT - 

0000368$ 
ERR0RMESS2 •• SWITCH FORMAT - 

00003689 
ERRORS — FORMAT 
00003681 

■ label • 

00001296 

— label • 

00002210 

— LABEL - 
00002273 

— LABEL - 
00002359 

-* LABEL • 

00002853 
INTEGER 



00002832 
00002886 
00003080 
00003139 
00003215 
00003282 
00003336 
00003506 



00002836 
00002896 
00003096 
00003177 
00003226 
00003302 
00003379 
00003507 
IN 



DECLARED 
DECLARED 



00002840 
00002900 
00003099 
00003179 
00003234 
00003304 
00003388 
00003508 
SEGMENT 44 



00002843 
00002901 
00003100 
00003180 
00003235 
00003307 
00003394 
00003519 
AT 000035 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
74 



2862 
2902 
3105 
3184 
3236 
3314 
3401 
3524 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



2864 
2906 
3123 
3187 
3251 
3327 
3432 
3686 



00002875 
00002909 
00003124 
00003198 
00003253 
00003326 
00003494 



IN SEGMENT 45 AT 00003637 



EXIT - 

EXIT 

EXIT 
EXIT 

EXIT 



IN 



IN 
IN 



IN 



11 AT 00001283 ** OCCURS 



• DECLARED IN SEGMENT 3 AT 00000186 

DECLARED 

DECLARED 

DECLARED 

DECLARED 

DECLARED IN SEGMENT 37 AT 00002817 -- OCCURS 



SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 



26 AT 

28 AT 



00002201 
60002265 



30 AT 80002351 



— OCCURS 
•• OCCURS 

— OCCURS 



AT 00001360 

AT 00002236 

AT 00002279 

AT 00002364 

AT 00002920 



EXp 



DECLARED IN SEGMENT 8 AT 00000877 



♦0000098 3**00000984**00000985* 00000987 



- DECLARED IN SEGMENT 2 AT 
00001409 00001416 00001439 

00001809 

00002109 



00001601 
00002075 



00001732 ■ 
00001448 
00001845 00001850 
00002138 00002220 



'" FORWARD AT 000010 

00001462 00001475 

00001855 00001858 

00002221 00002267 



88 

00001463 
00001861 
00002294 



EXPRESSION -• PROCEDURE 
00001196 00001305 
00001575 00001593 
00001986 00002000 
00002436 00002444 
EXPRLEVEL « INTEGER — DECLARED IN SEGMENT 2 AT 00001093 

*0000i304**0000i305**0000i737* 0000i738 *0000l799* OOOOlSOO *00002267**00002353**0000239i * 
EXTeRnALFILE -- DEFINE — DECLARED IN SEGMENT 2 AT 00000069 

00000563 
EXTFILE — BOOLEAN — DECLARED IN SEGMENT 36 AT 00002943 

♦00002997**00003003* 00003005 OOOO3O23 
EXTFILETAB «*- REAL ARRAY •• DECLARED IN SEGMENT 2 AT 00000150 

00003003 *00003497* 
F -• INTEGER •• DECLARED IN SEGMENT 14 AT 00001625 

♦00001632* 00001633 00001640 00001643 00001649 
F -• INTEGER -• DECLARED iM SEGMENT 15 AT 0*001674 

♦OOOOi660> 00001687 *0000l69i* 0000^692 00001704 
F •• INTEGER «- DECLARED IN SEGMENT 16 AT 0«00l734 

♦00001748* OOOO175O 00001761 0000i765 00001777 
F »«- INTEGER -• DECLARED IN SEGMENT 18 AT 06001878 

*0000l89ft^ 00001897 00001899 00001905 00001906 
F •• INTEGER •» DECLARED IN SEGMENT 19 AT 0f001936 

*00001968^ 00001970 00001973 00001974 00001975 
F — INTEGER •• DECLARED IN SEGMENT 21 AT 00002021 

♦00002032^ 00002033 
FACTOR «■- PROCEDURE -- DECLARED IN SEGMENT 2 AT 00001368 

00001559 00001620 0000i6g7 0000j652 
FIELDLIST — CROCEDURE — DECLARED IN SEGmEnT 2 AT 00002808 

0000279S 00002913 00002921 
FILEHANDLING •• PROCEDURE — DECLARED IN SEGMENT 2 AT 00002018 
00002046 00002570 00002571 00002572 00002573 00002575 
FILElD "" INTEGER — DECLARED IN SEGMENT 18 AT 00001878 



0000 
0000 
0000 
0000 
0000 
0000 

0000 



2882 
2915 
3125 
3202 
3256 
3329 
3498 



0000 
0000 
0000 
0000 
0000 
0000 
0000 



2683 
2917 
3126 
3207 
3258 
3330 
3500 



00001490 
00001968 
00002353 



00001534 
00001980 
0000239i 



00001976 00001985 00001992 00001993 00001994 00001995 



« FORWARD AT 00002614 



♦00001881* 00001902 00001903 0000190ft 00001925 00001926 00001927 
FlL E I n — INTEGER *" DECLARED I n SEGMENT 1* A T 00001936 

♦00001939* 00001948 00001949 00001950 00001964 00001965 00001966 00002006 
FILENAME — INTEGE R — DECKED IN SEGMENT 2 AT 00000697 

*0000i427* 0000i4?8 *0000 l88i**0000i939**00002006^ OOOO2O1O 000020U OOOO2O12 ♦00002030^ 00002031 00002034 
00002035 00002036 
FILEPaRAM — OEFINE — DECLARED IN SEGMENT 2 AT 00000700 

0000H2F 00001881 00001939 OOOO2O30 
FILES mm DEFINE -* DECLAREO In SEGMENT 2 aT 00000099 

00001235 00001427 00001881 OOOO1882 00001939 00001940 00002030 00002033 00002737 00002759 00002763 
00002849 00002972 00003120 
FItESY — DEFINE mm DECLARED IN SEGMENT 2 AT 00000206 
00000934 00002749 

FltETAB — Real aRRay — declared in segment 2 AT 00000152 

*00002995*^00003010^ 00003414 00003417 00003422 
FILETYPE — DEFINE -• DECLARED IN SEGMENT 2 AT OOOOOlOO 

00001237 00002764 00003038 00003039 0000304? 00003054 00003056 
FINIS — BOOLEAN -• VALUE PARAMETER — DECLARED IN SEGMENT 2 AT 00000613 

finis m- boolean — value parameter -- declared in segment 2 at 00000614 

00000617 
FINIS — BOOLEAN -• DECLARED IN SEGMENT 2 AT 00000863 

*0000100$^00001005^00001006^ 00001007 00001012 ♦ 00001061^00001068^ 00001069 
FIRST -" BOOLIaN — DECLARED IN SEGMENT 12 AT 00001371 

♦00001426* 00001429 ♦00001458* 00001463 *00001589**0000 159 1* 
FIRST -• BOOLEAN « DECLARED IN SEGMENT 29 AT 00002288 

♦00002 306*^00002311* 
EiRST — BOOLEAN — DECLARED IN SEGMENT 36 AT 00002648 

♦000027 1 §♦♦000027 18^ 
FIRST •- BOOLEAN — DECLARED IN SEGMENT 37 AT 00002815 

♦0000282S^*00002827*^00002893^00002895^ 
FIRST — INTEGER — VALUE PARAMETER — DECLARED IN SEGMENT 2 AT 00002936 
FIRST »- INTEGER — VALUE PARAMETER — DECLARED IN SEGMENT 2 AT 00002939 

00002937 00002948 
FIRST -- BOOLEAN — DECLARED IN SEGMENT 39 AT 00003071 

♦0000309 U^OOOO 309 3* 
FIRSTADDR " INTEGER — VALUE PARAMETER •• DECLARED IN SEGMENT 2 AT 00002614 
FIRSTADDR mm INTEGER •• VALUE PaRAMeTeR •• DECLARED IN SEGMENT 2 AT 00002616 

00002615 
FIRSTADDR -• INTEGER — VALUE PARAMETER •- DECLARED IN SEGMENT 2 AT 00002808 
FIRSTADDR — INTEGER -- VALUE PARAMETER •• DECLARED IN SEGMENT 2 AT OOOO281O 

00002801 00002819 
FlRSTDlM •« B60LEAN — DECLARED IN SEGMENT 18 AT 00002943 

»0000297F^00002979^ 
FlRSTFlLE -• INTEGER -• DECLARED IN SEGMEnT 40 AT 00003156 

♦00003164+ 00003413 00003425 
FIRSTLAB — INTEGER •• DECLARED IN SEGMENT AT 00000123 

00002536 00003158 ♦00003159+ 00003178 00003431 *00003435* 
FIRSTPARAN •• INTEGER •• DECLARED IN SEGM F Nt 39 AT 00003070 

♦00003089* 00003143 
FlRSTSYM — INTEGER — DECLARED IN SEGMeNt 11 AT 00001281 

*OOOOi303^ OOOO13O7 
FlRSTSYM •• INTEGER — DECLARED IN SEGMENT 16 AT 0000i734 

♦00001741* 00001804 
FIRSTVAR — INTEGER — DECLARED IN SEGMENT § AT 00000141 

♦00003245* 00003264 
FIRSTWITHSYM •■ DEFINE — DECLARED IN SEGMENT 2 AT 00000074 
00001169 00002503 



FLOATING — DEFINE — DECLARED IN SEGMENT 2 
00000509 00001554 00001633 00001640 
0000197a 00001985 00001992 00002296 
FNAME — ALPHA -• DECLARED IN SEGMENT 36 aT 

♦00002998* 00002999 00003003 OOOO3O13 
FNLEN6TH — INTEGER — DECLARED IN SEGMENT 

♦00002999* 00003000 00003013 
FNSTART •• INlEGER — DECLARED IN 
♦00002999* 00003013 00003015 

— DECLARED IN SEGMENT 2 AT 



FORM 



FORMAL 



DEFINE 
00000509 
00001355 
0000155* 
0000l72f 
00001881 
0000206g 

0000231* 
00002763 
00003203 

DEFINE 



00000513 
00001409 
00001596 
00001748 
00001682 
00002075 
00002316 
00002779 
00003324 

DECLARED 



00000517 
00001417 
00001597 
00001789 
00001896 
00002090 
00002415 
00002843 



AT 00000088 

00001687 00001692 

00002312 00002660 

00002944 

00003015 00003028 
38 AT 00002945 
00003015 00003028 
SEGMENT 38 AT 00002945 
00003028 

00000082 
00000521 00001193 00001197 
00001427 00001439 00001449 
00001604 00001605 00001632 
00001790 00001792 00001793 
00001939 00001940 00001968 
00002110 00002122 00002125 
00002433 00002447 00002494 
00002675 00002896 00002901 



00001761 00001897 00001899 00001906 00001970 
00002664 00002896 00003202 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1218 
1464 
1657 
1847 
1981 
2138 
2660 
2972 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1235 
1475 
1658 
1852 
1987 
2163 
2664 
2983 



00001240 
00001463 
00001686 
00001855 
00002030 
00002219 
00002722 
00002991 



00001246 
00001490 
00001691 
00001858 
00002032 
00002223 
00002737 
00003037 



00001301 
00001534 
00001720 
00001661 
00002059 
00002296 
00002759 
00003120 



IN SEGMENT 2 AT 00000067 



00001393 
00003134 

DECLARED 
00001363 

— DECLARED 



00001894 00002086 00002205 00002312 00002410 00002559 00002660 



00001554 
00003202 
IN SEGMENT 11 AT 00001282 



IN SEGMENT 40 AT 00003156 
DECLARED IN SEGMENT 2 AT 00002395 

00000204 
2 AT 00000068 



00001287 00001323 
00002661 00002896 
FORMaLPROc — BOOLEAN -• 
♦00001287* 00001289 

formerfirstlab «*• intfgfR 

♦00003158* 00003435 
FORSTaT -- PROCEDURE •• 
00002461 00002591 
FORSY -- DEFINE •• DECLARED IN SEGMENT 2 aT 

00000914 00002591 
FORWARDDEF -* DEFINE — DECLARED IN SEGMENT 

0000329F 00003299 00003372 
FOUND — BOOLEAN •• DECLARED IN SEGMENT 2 AT 00000419 

♦00001221* 00001223 *0000l3l9* 00001320 *00001345* 00001346 
♦00001896* 00001891 ♦00001939**00002030**00002053* 00002054 

00002160 00002202 *00002312**00002405* 00002406 *00002487* 
♦00002668**00002664**00002694* 00002695 *Q0002860* 00002661 
♦00003202**00003279* 00003281 *00003292* 00003294 *000033l8* 
FUN — BOOLEAN •«• DFCLARED IN SEGMENT 40 aT 00003152 
*00003289* OOOO33O1 00003302 OOOO33O9 00003314 
FUNC — DEFINE •- DECLARED IN SEGMENT 2 AT 00000063 

00000549 00001350 00001402 00002560 00002952 
FUNCSY •<• DEFINE — DECLARED IN SEGMENT 2 AT 00000208 

00000942 00003085 00003088 00003287 00003289 
Fl — INTEGER — DECLAREO IN SEGMENT 2 AT 00000658 

♦0000 1197**0000 1355**0000 1597**0000 1605**0000 1658**0000 172 1**0000 1790**0000 1793**00002075**00002 138**00002223* 
•00002318**00002433**00002447**00002901* 
F2 »• INTEGER •• DECLARED IN SEGMENT 2 AT 00000658 

•0000 ll9f**0000 1355**0000 1597**0000 1605**0000 1658**0000 172 1**0000 1790**00001 79 3^^00002075**00002 138**0000222 3* 
♦000023 16**00002433**00002447**00002901* 



♦ 00001389* 00001390 *0000l427**0000l554**0000l88 1* 
♦00002082* 00002083 *00002116* 00002117 *00002159* 

00002488 *00002555* 00002556 *00002653* 00002654 
♦00002868* 00002869 *00002896**00003109* 00003110 

00003319 



00003332 00003337 00003381 

00002959 00003088 00003302 00003309 



GEN — DEFINE 
00000326 
00001905 
00001939 
00001973 
00001995 
00002027 
00002078 



DECLARED IN SEGMENT 2 AT 00000277 
00000339 00000343 00000344 00001607 



00001906 
00001948 
00001974 
00001996 
00002028 
00002088 



00001907 
00001949 
00001975 
00001999 
00002030 
00002099 



00001910 
00001950 
00001976 
00002001 
00002034 
00002106 



00001911 
00001956 
00001977 
00002010 
00002035 
00002113 



00001880 
00001912 
00001959 
00001982 
000020H 
00002036 
00002128 



0000 
0000 
0000 
0000 
0000 
0000 
0000 



1900 
1918 
1960 
1988 
2012 
2037 
2129 



00001901 
00001925 
00001964 
00001989 
00002014 
00002046 
00002137 



00001902 
00001926 
00001965 
00001992 
00002024 
00002065 
00002144 



00001903 
00001927 
00001966 
00001993 
00002025 
00002066 
00002151 



0000 
0000 
0000 
0000 
0000 
0000 
0000 



1904 
1929 
1969 
1994 
2026 
2074 
2152 



GENlD 



6ENINT 



0000216S 
000022*3 
00002375 
00002454 
00002961 
00002986 
00003028 
00003047 
00003165 
00003365 
00003423 
•• DEFINE 
0000l90| 

00001966 
00002317 
00003011 
00003417 
DEFINE 



00002169 00002218 00002222 

00002295 00002309 00002317 

00002379 00002390 0000239i 

00002455 00002456 00002457 

00002965 00002966 00002967 

00002990 000030H 00003012 

00003029 00003031 00003034 

00003048 00003051 00003054 

00003188 00003337 00003338 

00003367 00003374 00003389 
00003439 

— DECLARED IN SEGMENT 2 AT 

OOOO19O3 00001904 00001925 

00002011 OOOO2O12 

00002443 00002454 

00003047 00003059 



00002010 
00002429 
00003018 
00003422 

>• DECLARED 



IN SEGMENT 2 AT 



GENREAL 

GEQSY 
G0T0STA 
GOTOSY 
GTRSY 
HASH • 



00001906 
00001992 
00002129 
00002445 

IN SEGMENT 
OOOO2O88 



0000180f 00001900 00001905 
00001974 00001975 00001976 
000020B8 00002099 00002128 
0000235J 00002391 00002431 
00003056 

— PROCEDURE *• DECLARED 
00000348 00001807 00001900 
00002445 00002582 
— DEFINE •• DECLARED IN SEGMENT 2 AT 

0000047$ 00000924 00001035 0000i756 
T — PROCEDURE »- DECLARED IN SEGMENT 
0000247$ 00002593 

— DEFINE •• DECLARED IN SEGMENT 2 AT 
00000931 00002593 

DEFINE — DECLARED IN SEGMENT 2 A T 
00000925 00001034 00001757 
DFCLARED IN SEGMENT 2 AT 



00002246 
00002330 
00002401 
0000245V 
00002971 
00003013 
00003036 
00003056 
00003342 
00003395 

00000286 
00001926 
00002034 
00002455 
00003176 

00000297 
00001907 
00001993 
00002144 
00002582 



00002250 
00002333 
00002429 
00002472 
00002974 
00003014 
00003040 
00003058 
00003347 
00003398 



00001927 
00002035 
00002457 
00003338 



00001910 
00001994 
00002165 
00002980 



2 AT 00000313 
00002165 00002218 

00000198 
00001774 
2 AT 00002464 

00000205 



00000518 
00000556 
00001690 
00002653 
00003109 

SEGMENT 2 
00000642 



00000471 
OEFlN| 

00000506 00000510 00000514 

0000054* 00000553 00000555 

00001427 00001554 00001881 

00002405 00002487 00002555 

00002868 00002896 00003096 
00003318 
HEADING — DEPINE — DECLARED IN 

00000407 00000499 00000631 

headTfxt •• real aRRay — declared in segmen 

00000407 0000049} 00000492 00000494 

00003475 00003527 00003690 
INTEGER — DECLARED IN SEGMENT 
*0000i958* 00001953 
INTEGER -- DECLARED IN SEGMENT 
♦00002469**00002470* 00002471 
INTEGER •- DECLARED IN SEGMENT 34 AT Oo 
*00002506* 00002508 

INTEGER — DECLARED IN SEGMENT 35 AT 00 
*00002536* 00002537 00002538 00002539 
INTEGER *' DECLARED IN SEGMENT 37 AT 00 
*0000284|* 00002848 *00002904**00002905* 
INTEGER — DECLARED iN SEGMENT 38 AT QQ 



00000196 

0000415 

00000522 

00000561 

00001939 

00002660 

00003198 



00000525 
00000564 
00002030 
00002664 
00003202 



T 00000239 
00000884 00001042 
T 2 AT 00000131 
00000497 00000499 



19 AT 0|00t936 

33 AT 00002466 

002480 

002531 

002814 

00002906 

002942 



00002258 
00002340 
00002431 
00002543 
00002975 
00003015 
00003041 
00003059 
00003349 
00003409 



00001948 
00002036 
00002472 
00003344 



00001911 
00001995 
00002169 
00002982 



00002266 
00002343 
00002432 
00002582 
00002976 
00003018 
00003042 
00003060 
00003352 
00003410 



00001949 
00002063 
00002543 
00003348 



00001912 
00001999 
00002218 
00003040 



00002267 
00002352 
00002443 
00002956 
00002979 
00003022 
00003044 
00003064 
00003354 
00003411 



00001950 
00002127 
00002961 
00003350 



00001959 
00002037 
00002222 
00003041 



00002275 
00002353 
00002445 
00002959 
00002980 
00003026 
00003045 
00003167 
00003360 
00003416 



00001964 
00002228 
00002968 
00003363 



00001960 
00002065 
00002267 
00003042 



00002276 
00002361 
00002446 
00002960 
00002982 
00003027 
00003046 
00003171 
00003362 
00003416 



00001965 
00002293 
00002976 
00003397 



00001973 
00002066 
00002317 
00003054 



00002222 00002267 00002353 00002391 00002431 



00000527 
00000566 
00002053 
00002673 
00003226 



00001065 
00000631 



00000531 
00001222 
00002082 

00002694 
00003253 



00003475 
00000642 



00000540 
00001319 
00002116 
00002832 
00003279 



00003527 
00000884 



00000S42 
00001345 
00002159 
00002860 
00003292 



00000543 
00001389 
00002312 
00002662 
00003307 



00003690 

00001042 00001065 



I •- 

ICARD 
IDCUASS 



♦00002948* 00002950 

INTEGER •- DECLARED IN SEGMENT 39 AT 00003070 
♦0000311S* 00003116 *00003121* 00003122 *00003l35* 00003136 
INTEGER -- DECLARED IN SEGMENT 40 AT 00003149 
*00003l7i* 00003179 *00003264* 00003265 *00003276* 00003278 
00003350 00003352 *00003356* 00003357 00003363 #00003396* 
00003422 *00003429* 00003430 *0000343l* 00003432 
INTEGER — DECLARED IN SEGMENT 43 AT 0Q0Q3573 
*0000368f* 00003683 *00003684* OOOO3685 
km REAL ARRAY — DECLARED IN SEGMENT I AT 00000i28 
OOOOO684 0000i065 00003475 



00003282 
00003397 



♦00003343* 
00003398 



00003344 
*00003413* 



00001321 
00001881 
00002312 
00002668 
0000320g 

IDENTIFIER " 



•• DEFINE •• DECLARED IN 
0000050* 00000510 00000514 
00001323 
00001893 
00002409 
00002697 
00003203 
DEFINE 



IFSTAT 
IFSY . 
ILIST 



INDEX 
INDEX 



00000906 
0000095) 
00001939 
0000258$ 
00002896 
00003316 



00001348 
00001894 
00002410 
00002844 
00003232 

DECLARED 
00000927 

00001220 
00002051 
00002660 
00003107 
00003489 
DECLARED 



SEGMENT ? 

00000518 
00001350 
00001939 
00002490 
00002661 
00003263 
IN SEGMENT 
00000934 
00001317 
00002080 
OOOO2664 
00003196 



AT 00000060 
00000522 00000524 



00001392 
00002030 
00002558 
00002871 
00003281 



00001393 
00002056 
00002559 
00002878 
00003294 



2 AT 00000194 
00000940 00000944 



00000532 
00001395 
00002085 
00002560 
00002896 
00003301 



00000536 
00001402 
00002086 
00002561 
00002952 
00003302 



00000546 
00001427 
00002119 
00002656 
00002959 
00003309 



00001343 
00002114 
00002671 
00003202 



00001387 
00002157 
00002689 
00003217 



00000946 
00001427 
00002175 
00002754 
00003224 



00000948 
00001551 
00002312 
00002823 
00003238 



00000950 
00001554 
00002403 
00002826 
00003248 



00000912 

00000955 

00002030 

00002651 

00003094 

00003481 
-• PROCEDURE »- 
00002280 00002587 

♦ DEFINE — DECLARED 
00000907 00002587 

»- INTEGER ARRAY — DECLARED IN SEGMENT 37 AT 00002812 
♦00002833* 00002848 *00002904* 00002905 
INBRACKET « BOOLEAN -• DECLARED IN SEGMENT 10 AT 00001162 

♦ 0000117J* 00001188 *00001189* 00001215 ♦00001216+ 00001248 ♦000012<*9^ 00001266 00001274 

— integfR mm dfcLaRed in segment 37 at ooqo28h 

♦ 00002856^00002862^ 00002876 00002879 

— ?ntege r — * declared in Segment 40 

♦00003l98^ 00003212 ♦000032?6^ OOOO3233 



IN SEGMENT 2 AT OOOO2263 
IN SEGMENT 2 AT 00000202 



INFO 



INITIAL 



00003381 

• DEFINE 

00000528 

00002847 



AT 00003149 

• 0000 3296^0000 3307^ 



00003310 00003326 



— DECLARED IN SEGMENT 2 AT 
00000532 00001227 OOOO1286 
00002878 00002896 
" DEFINE — DECLARED IN 
00000470 00000471 00000472 



00003216 00003237 

INITIALIZE — PROCEDURE 
00003475 

inputdecl — boolean -- 

00001427 00001881 
INPUTFILE — INTEGER " 

*00000564* 00001427 
INRECORD •* BOOLEAN -• 

♦ 0000117U 00001188 
iNSlDrBRACKfTS — BOOLEAN 



00003268 



00003202 
SEGMENT 2 
00000473 
00003390 



00000066 

00001397 00001398 

00003210 00003211 
AT 00000211 

00002252 00002359 

00003402 



00001554 
00003308 



00002312 
00003339 



00002381 00002386 



00003338 
00002660 
00002427 



"- DECLARED IN SEfiMpNT 2 AT 00000466 



DECLARED 
00001939 
DECLARED 
00001881 
DECLARED 



IN SEGMENT 

00002030 
IN SEGMENT 
00001939 
IN SEGMENT 



2 AT 00000163 
00003410 *00003491* 
2 AT 00000162 
00002030 
10 AT 00001162 
00001194 0000U99 00001215 ♦ 00001230^00001257^ 
»• DECLARED IN SEG m ENT 2 AT 00001155 



♦ 00001274^00002496* 00002504 
INSY — DEFINE — DECLARED IN SEGMENT 2 AT 00000199 

00000918 00001746 00001787 
INSyMbOC •«• PROCEDURE — DECLARED IN SegMeNt 2 AT 00000875 



00003345 
00003414 



00000560 
00001545 
00002204 
00002660 
00003112 
00003321 

00000951 
OOOO1861 
00002485 
00002858 
00003269 



00003339 
00002164 
00002441 



00003348 
00003417 



00000562 
00001554 
00002205 
00002664 
00003134 



00000952 
00001888 
00002553 
00002866 
00003290 



00003372 
00002674 
00003189 



FORWARD AT 00000226 



jNTcONST 

INTEXPR 

INTTYPE 

INXTYPE 
IT "- 

jT mm 

J • «• 

LABDEF 
LABELSY 
IABFOUN0 
LABTAB 



00000384 00000387 00001074 

00001295 OOO0133J 00001351 

00001439 00001445 00001448 

00001506 00001511 00001516 

0000157S 00001578 00001582 

00001713 00001782 00001842 

00001914 00001915 00001916 

00002039 00002047 00002050 

00002134 00002138 00002142 

00002229 00002248 00002251 

00002305 000023H 00002312 

00002402 00002422 00002426 

0000248* 00002514 00002515 

00002660 00002662 00002664 

00002718 00002733 00002735 

0000282J 00002827 00002834 

00002895 00002896 00002910 

00003148 00003141 00003173 

00003230 00003237 00003247 

00003369 00003375 00003390 

"• DEFINE -» DECLARED [N 

00000964 00001554 00002312 
«• DEFINE •- DECLARED IN 

0000185S 00001858 00001861 

— INTEGER — DECLARED IN 
00000503* OOOOO531 00001409 
00001498 00001494 00001534 

— DEFINE — DECLARED IN 
00001197 00002061 00002124 



OOOO1181 
OOOO1361 
00001451 
00001521 
00001586 
00001845 
00001921 
00002071 
00002143 
00002256 
00002335 
00002428 
00002516 
00002670 
00002751 
00002837 
00002913 
00003183 
00003255 
OOOO34O3 

segment 2 

0000^468 
SEGMENT i7 

SEGMENT 2 
00001410 
00001535 
SEGMENT 2 
00002723 



0000H95 
00001400 
00001459 
00001525 
00001591 

00001850 
00001939 
00002075 
00002153 
00002259 
00002345 
00002435 
00002522 
00002675 
00002754 
00002841 
00002916 
00003189 
00003261 
00003477 



00001210 
00001409 
00001462 
00001534 
00001601 
00001855 
00001945 
00002079 
00002156 
00002267 
00002353 
00002436 
00002523 
00002683 
00002755 
00002857 
00003084 
00003194 
00003268 
00003480 



00001211 
00001414 
00001470 
00001549 
00001612 
00001858 
00001961 
00002097 
00002171 
00002276 

00002362 
00002439 
00002544 
00002688 
00002771 
00002863 
00003089 
00003199 
00003289 
00003464 



AT 00000194 
00002534 00002660 
AT 00001835 

AT 00000161 
00001439 00001440 
00001554 00002312 
»T 00000095 



00001219 
00001416 
00001475 
00001550 
00001613 

00001861 
00001980 
00002098 
00002174 
00002278 
00002377 
00002451 
00002547 
00002706 
00002774 
00002865 
00003093 
00003202 
00003303 
00003488 



00001231 
00001419 
00001483 
00001554 
00001619 
00001871 
00001986 
00002106 
00002176 
00002294 
00002380 
00002453 
00002548 

00002710 
00002775 
00002881 
00003101 
00003216 
00003311 
00003501 



00001261 
00001427 
00001490 
00001559 
00001652 
00001881 
00002004 
00002109 
00002180 
00002301 
00002387 
00002467 
00002595 
00002714 
00002794 
00002887 
00003106 
00003222 
00003315 
00003504 



00002664 00002896 00003174 00003202 



00001453 
00002660 



0000H75 
00002664 



00001479 
00002896 



00001483 
00003202 



INTEGER — DECLARED IN SEGMENT 23 AT §0002045 

0000206f* 00002075 

INT E GER — DECLARED IN SegMeNT 24 AT 80002105 

00002121* OOOO2138 

NTEGER •» DECLARED IN SEGMENT 38 AT 08002942 

0000300J* 00003003 



Uabtabto 

LABVAL 

LAST *■> 
LAST •• 

LASTADDR 
LASTADDR 
LASTADDR 
LASTADDR 
* 
LASTAO 



«— DEFINE •- DECLARED IN SEGMENT 2 AT 00000122 
00002538 00002539 00003432 

" DEflNE — DECLARED IN SEGMENT 2 AT 00000207 
00000940 00003169 

LABEL — DECLARED IN SEGMENT 35 AT 00002532 — OCCURS AT 00002543 
00002548 

DECLARED 
00002538 
DECLARED 



IN SEGMENT 
♦00002539* 
IN SEGMENT 



— REAL ARRAY — 

00002478 00002537 

p -- INTEGER •" 

00003151* 00003434 

*• DEFINE -• DECLARED IN SEGMENT 

00002470 00002537 00003179 

INTEGER — VALUE PARAMETER •• 
INTEGER — VALUE PARAMETER -- 

0000293* 00002948 

•- integer »• name parameter 

— integer — name parameter 

— integer — name parameter 
integer — name parameter 



2 AT 00000120 
00003179 #00003182* 
40 AT 00003155 



00003432 



2 AT 00000121 



DECLARED 
DECLARED 



IN 
IN 



segment 
segment 



DECLARED 
DECLARED 
DECLARED 
DECLARED 



00002852**00002656**00002879**00002914* 

— REAL — DECLARED IN SEGMENT 2 AT 80000577 

00000626 *00000645* 



IN 
IN 
IN 

IN 



SEGMENT 
SEGMENT 
SEGMENT 
SEGMENT 



AT 00002936 

AT 00002939 

2 AT 00002614 

2 AT 00002616 

2 AT 00002808 

2 AT 00002810 



00001290 
00001433 
00001501 
00001570 
00001681 

00001887 
00002030 

00002113 
00002212 
00002303 
00002391 

00002473 
00002659 

00002715 
00002802 
00002690 
00003128 
00003227 
00003331 
00003509 



00001486 



UASTA1 — REAB — DFCLAKED IN SEGMENT 2 AT 

00000626 *00000647* 
UASTB L 0CK -- INTEGER — OEClARED IN SEGMEnT 

00000626 *00000651* 
LASTCHARPOS — INTEGER — DECLARED IN SEGmE 

•00001052* 00001057 
LASTUlNE -• FORMAT — DECLARED IN SEGMENT 3 

00003548 
LASTRFC •" INTEGER — DECLARED IN SEGM E NT 2 

*0000279f* 00002792 00003163 00003379 
USTSY mm INTEGER "" DECLARED IN SEG m ENT l9 

*0000i967* 00001993 
UASTW|ThSYM •- DEFINE •• DECLARED IN SEGMeN 

00001169 00002511 
LBRACKET — DBFInE •• DECLAREO IN SEGMENT 2 

00000478 00001182 00001186 00001263 
LEFTTYPE — INTEGER — DECKED IN SEGMENT 
♦00002207* 00002213 00002219 00002220 
LeCSY — DEFINE — DECKED IN SEQMeNT 2 A T 

0000047f 00000923 00001031 0000i755 
LETTER — DEFINE — DECLARED IN SEGMENT 2 A 

00000867 00000891 00000897 OOOOOVOj 
LEVEL -- INTEGER — VALUE PARAMETER — DE 
LEVEL — INTEGER — VALUE PARAMETER — OE 

00002937 00002947 00002950 00002998 
LEVELlOOO — INTEGER -- DECLARED IN SEGMENT 

•00002947* 00002961 00002968 00002976 
LINE •• REAL ARRAY — DECLARED IN SEGMENT 2 

00000407 00000480 00000884 00001065 
LlN EC NT — INTEGER «— DECLARED IN SeGMeNT 2 
*0000040f**00000409**00000499**000006 30* 
♦0000352***00003690* 
LlNEFFED — BOOLEAN -• VALUE PARAMETER -• 
LINEFEED — BOOLEAN -- VALUE PARAMETER •- 

0000200X 
LInEPnT •• POINTER •- DECLARED IN SEGMENT 2 
00000407 *00000480^ 00000482 OOOOO884 
00003527 
•• DECLARED IN SEGMENT 2 AT 
00000407 00000406 00000499 
00001065 00003475 00003525 



•0000577 

2 AT 00000578 
NT 2 AT 00000862 

AT 00000189 

AT 00000181 

00003429 ♦00003433^*00003511^ 

AT 00001936 



LINES 



00003475 
** FILE 
00000362 
00001042 
00003698 

LJNESPERPAGE — 
0000040* 



LISTINX 



INTEGER 



DEFINE 
00000631 



■ DECLARED jN SEGME 
00000642 OOOOO684 



... .___. DECLARED IN SEGMENT 3 
♦00002828**00002830**00002831* OOOO2833 
LISTLENGTH *- DEFINE •• DECLARED IN SEGMENT 

00000146 00002812 00002830 00002902 
LlSTOpTjON — BOOLEAN — DECLARED IN SEGMEN 
00000407 00000884 *00001043* OOOO1O65 
-» INTEGER -* DECLARED IN SEGMENT 10 A 
00001196 00001201 00001202 

•• DECLARED IN SEGMENT 32 A 
00002430 00002444 
. .__. — DECLARED IN SEGMENT 37 A 
♦00002874**00002888* 00002900 
- DEFINE •- DECLARED IN SEGMENT 2 AT 



LLIM 
LLIM 
LLIM 
LPAR 



♦0000119** 

'• INTEGER 

♦00002417* 

INTEGER 



T 2 AT 00000075 

AT 00000199 
00001580 00002715 
86 AT 00002200 
00002223 *00002228* 
00000197 

00001773 
T 00000857 

00000961 
CLAREO IN SEGMENT 2 AT 00002936 
CLARED IN SEGMENT 2 AT 00002939 

38 AT 00002942 

00003011 00003018 00003047 00003059 
AT 00000128 
00003475 00003527 
AT 00000132 
♦000006 31 **0000064 1**00000642**00000884**00001 04 2**0000 1065**0000 3475* 

DECLARED IN SEGMENT 2 AT 00001933 
DECLARED JN SEGMENT 2 AT 00001934 

AT 00000129 

00001065 00002245 00002258 00002290 00002343 00002374 00002390 

0000034 
00000619 00000620 00000630 00000631 00000641 00000642 00000884 
00003527 00003529 00003530 00003552 00003681 00003683 00003685 

NT 2 AT 00000036 

00001065 00003475 00003527 
7 AT 00002813 

00002845 ♦00002856^00002902^00002903^ 00002904 00002906 

2 AT 00000051 

00003250 
T 2 AT 00000157 

00003475 ♦00003476^ 00003527 
T 00001160 

T 00002397 

I 00002814 

00000199 



00000476 

0000149& 

0000290* 

LPARFoUNO — BO 

♦0000142?* 

LSSSY »<■ DEFINE 

00000476 
IT — INTEGER 

♦00001197* 
♦00002316* 

MAjNTyPE •• DEF 
0000n9f 

00002316 
MARGIN — DEFIN 

0000224* 
MARGlNCNT — IN 
♦00000864* 

MaXAOoR — INfE 
00002913 

MAXCASES — OEF 
000022^6 

MAXCONSIS — DE 

OOOOOlU 
MAXEXTFILES — 

00000150 

MAXFIlES -. OEF 
OOOOOlSfi 

MAXINT — DEFIN 
00000509 

MAXLABS — OEfl 
00000120 

MAXUEVEfc — DEF 
00000072 

MAXNAME& •* DEF 
00000057 
00000543 
00001389 
00002312 
00002862 
00003307. 

MAXPARAMS « BE 

oooooior 

MAXPNTRS — DEF 
00000148 

MAXSYMS « DEFI 
0000014& 
00001216 
00001293 
0000135f 
00001459 
00001485 
00001534 
00001608 
00001694 
0000174$ 
0000177S 
00001861 



00001036 
00001534 
00002911 

OLEAN •• 
00001430 



00001427 
00001939 



00001754 



0000143' 00001446 00001460 
00002030 00002048 00002107 



00001475 
00002154 



00001483 
00002665 



00001790 00001793 00002075 00002138 00002223 



00001291 00001409 00001415 
00001572 00001843 00001881 
00003081 00003485 
DECLARED IN SEGMENT 2 AT 00000698 
* 00001881 ♦♦00001 9 39^*00002030^ 
"" DECLARED IN SEGMENT 2 aT 00000197 
00000922 00001030 00001032 00001746 
— DECLARED IN SEGMENT 2 AT 09000658 

♦ 0000 1355**00001 597 **0000i605^^0000 1658**0000 1721**0000 1 790**0000 179 3^^000020 75^ + 00002 138**0000222 3* 
♦0000243 3**0000244 7 ♦♦0000290i* 

INE — DECLARED IN SEGMENT 2 AT 00000086 

OOOO1355 00001597 OOOO16O5 00001656 00001721 

00002433 00002447 00002660 00002664 00002901 
E — DECLARED IN SEGMENT 2 AT 00000368 

00002258 00002290 00002343 00002374 00002390 
TEGER »• DECLARED IN SEGMENT 2 AT 00000130 

♦0000 1065**00002245**00002258^00002290^*0000234 3**00002 374**00002390**0000 3475* 
GER •» DECLARED IN SEGMENT 37 AT 00002814 

00002914 
INE -• DECLARED IN SeGMeNT 2 AT 00000043 

00002319 00002324 00002326 0000232* 
FINE -- DECLARED IN SEGMENT 2 AT 00000047 

00003206 
DEFINE — DECLARED IN SEGMENT 2 AT 00000052 

00003496 00003498 
INE -- DECLARED IN SEGMENT 2 AT 00000053 

00002993 00003007 
E " DECLARED IN SEGMENT 2 AT 00000037 

00000534 00000995 00002888 
NE — DECLARED IN SEGMENT 2 AT 00000044 

00003180 
INE — DECLARED IN SEGMENT 2 AT 00000042 

00002497 
INE — DECLARED IN 



00000506 
OOOOO544 
00001427 
00002405 
00002868 
00003318 

FINE — 
00003080 

INE - 



00000510 
00000553 
00001554 
00002487 
00002896 
00003384 
DECLARED IN 
00003099 
DECLARED IN 



AT 00000041 
00000518 00000522 



segment 2 

00000514 
00000555 
OOOO1661 
00002555 
00003096 
00003430 
SEGMENT 8 AT 00000045 



00000556 
00001890 
00002653 
00003109 



00000561 
00001939 
00002660 
00003198 



00000525 
00000564 
00002030 
00002664 
00003202 



00000527 
00000566 
00002053 
00002673 
00003226 



00000531 
00001222 
00002082 
00002694 
00003253 



00000540 
00001319 
00002116 
00002832 
00003279 



00000542 
00001345 
00002159 
00002860 
00003292 



00002702 
NE — DECLARED IN 
0000H70 00001180 



SEGMENT 2 AT 00000054 



00001226 
00001302 
00001360 
00001463 
00001490 
00001554 
00001626 
00001695 
00001753 
00001779 
00001862 



00001227 
00001303 
00001397 
00001465 
00001491 
00001558 
00001636 
00001701 
00001754 
00001780 
00001863 



SEGMENT 2 
00001189 
00001238 
00001307 
00001398 
00001466 
00001492 
00001563 
00001637 
00001702 
00001755 
00001783 
00002220 



AT 00000050 
00001194 00001196 



00001243 
00001310 
00001409 
00001467 
00001500 
00001569 
00001641 
00001708 
00001756 
00001795 
00002267 



00001248 
00001311 
00001416 
00001468 
00001505 
00001574 
00001647 
00001709 
00001757 
00001796 
00002353 



00001201 
00001250 
00001312 
00001428 
00001475 
00001510 
00001577 
00001648 
00001710 
00001758 
00001805 
00002391 



00001202 
00001266 
00001328 
00001429 
00001477 
00001515 
00001585 
00001651 
00001714 
00001759 
00001841 
00002430 



00001203 
00001268 
00001329 
00001439 
00001478 
00001520 
00001592 
00001667 
00001727 
00001762 
00001850 
00002444 



00001205 
00001269 
00001330 
00001445 
00001483 
00001524 
00001600 
00001677 
00001740 
00001768 
00001855 
00002496 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1206 
1285 
1349 
1453 
1484 
1533 
1607 
1680 
1743 
1770 
1858 



SEGMENT 2 

00003398 
SEGMENT 2 
0000266ft 

IN SEGMfNT 



MINUS 



MODE 



MODE — 



MODSY 



N •• 

N -• 
N - 

NABS 



AT 000000*8 

AT 00000046 
00002666 00002691 
2 aT 00000049 



00002312 
00001668 
00001707 



42 
42 



AT 
AT 



MAXTABLeS — DEFINE -• DECLARED IN SEGMENT 2 AT 00000040 

00000057 00000i36 00003511 
MAXTEMPS — DEFINE -- DECLARED IN 

00002292 00002434 00003396 
MAXTYpES — - DtFlNE -- DECLARED IN 

00000081 00001614 00002660 
MAXWITHSYMS *• DEFINE •- DECLARED 

00000141 00002505 
MlDDtF — DEFINE — DECLARED IN SEGMENT 2 Af 00000211 

00000362 00000470 00000471 00000472 00000473 

— DEFINE — DECLARED IN SEGMENT 2 AT 00000197 
00000476 OOOO1554 00001678 0000i695 0000i7l0 

• INTEGIR -- DECLARED IN SEGMENT 14 AT 00001625 
*00001628**00001635**00001645* 00001646 00001666 

INTEGtR -• DECLARED IN SEGMENT 15 AT 00001674 
*0000168«**00001693**00001699* 00001700 ♦00001706+ 

— DEFI8E — DECLARED IN SEGMENT 2 aT 00000196 
00000916 00001629 

MuLOPtR — INTEGER — DECLARED IN SEGMENT U AT 00001625 
♦00001631* 00001661 00001663 

INTEGER mm DECLARFD IN SEGMENT 36 aT 08002647 
♦00002667+ 00002674 *00002675* 00002682 
INTEGER mm VALUE PaRaMeTeR — • DECLARED IN SEGMENT 
INTEGER — VALUE PARAMETER -- DECLARED In SEGMENT 
00003544 00003545 

— INTEGER — DECLARED IN SEGMENT 2 a* 00000295 
♦0000 1807**00001 900**0000 1905**0000 1906*#0000 1907**0000 19 10* 
♦0000 1974**0000 1975**0000 1976** 0000 1992**0000 199 3**0000 1994* 
*00002088**00002099**00002 126**00002 129**0000 2 144**00002 165* 
*00002353**0000239 1**0000 24 3 1**0000 2445**00002582**00002980* 
♦00003056* 

INTEGER " DFCLARED IN SEGMENT 38 A T 
♦00002956* 00002961 00002968 00002976 
NAMELENGTH -• DEFINE « DECLARED IN SEGMENT 

0000058S 00000608 00000646 
NAMETAB -- DEflNE — DECLARED IN 
00001319 OOOO1345 00001389 
00002116 00002159 00002312 
00002860 00002868 00002696 
NaMeTaBI — REAL ARRAY — DECLARED I N SEGMENT 2 A T 00000057 

*0000050fi**000005i0**000005l4**000005l8**00000522**00000525* 
♦0000054***0000055 3**00000555**00000556** 0000056 1**00000564+ 
0000142* 00001554 00001881 0000i890 00001939 00002030 
00002*09 00002487 00002555 00002653 00002660 00002664 
00002868 00002896 00002998 *00003096+ 00003109 *00003l98* 
•00003307* 00003318 00003383 00003430 
NAMETAB2 *- REAL ARRAY — DECLARED IN SEGMENT 2 AT 00000057 

♦00000506**000005 10**000005 14**0000051 8 ♦♦00000522^*00000525+ 
*0000054i^00000553+*00000555*+OOOQ0556**Q0000561*^00000564^ 
00001427 00001554 00001881 0000l89o 00001939 00002030 
00002409 00002487 00002555 00002653 00002660 00002664 
00002868 00002896 ♦00003096^ OOOO31O9 #00003196* 00003202 
00003316 

nameTaB3 •- real array — declared in segment 2 at 00000057 

♦0000050t+ +000005 11**000005 15**000005 19**0000052 3*+ 0Q000525* 

+00000544**0000055 3**00000555**00000556** 0000056 1++00000565+ 

00001427 00001554 00001881 0000i690 00001939 00002030 



00002727 00002762 00002782 00002797 



00002660 00002664 0000289} 00002896 00003202 



00001726 00001728 



nam -• 



00000648 
SEGMENT 2 
00001427 
00002405 
00003109 



00002942 

00002995 00002998 
2 AT 00000058 
00000649 00000903 
AT 00000078 
00001554 00001881 
00002487 00002500 
00003202 00003318 



00003542 
00003543 



*0000191U+00001912+^00001959++00001960*^00001973^ 
♦ 0000 1 995 + * 0000 1999**000020 37**00002065* +00002066* 
♦00002169**00002218**00002222**00002267**0000 2317* 
♦0000 2982**0000 3040**0000 30 4 1**0000 30 4 2++0000 3054 ♦ 



00003010 00003011 00003018 00003047 00003059 

00002999 

00001890 00001939 00002030 00002053 00002082 

00002555 00002653 00002660 00002664 00002694 

+00000527++000005 3 1++00000540* +00000542**0000054 3+ 

*00000566* 00001222 00001319 00001345 00001389 

00002053 00002082 00002116 00002159 00002312 

♦00002673* 00002694 *00002832* 00002860 *00002862* 

00003202 *00003226**00003253* 00003279 00003292 

*00Q00527**0000053i*»00000540**00000542**0000054 3* 

♦00000566* 00001222 00001319 00001345 00001389 

00002053 00002082 00002116 00002159 00002312 

♦00002673* 00002694 #00002832* 00002860 *00002862* 

*00003226**00003253* 00003279 00003292 *00003307* 



* 00000527 **00000533**00000540**OOOOOS42**0000054 3* 
♦00000567* 00001225 00001319 00001345 00001389 
00002053 00002082 00002116 00002159 00002312 



NAME! 
NAME1 

NAMEl 
NAMEl 

NAME2 
NAME2 



0000240* 00002487 
♦00002879* 00002896 
♦00003299**00003310* 



mm 



real 
- Real 

00000228 

• real 

- REAL 
0000058J 

- REAL 

- REAL 
00000229 

REAL 

- REAL 
00000581 



■- VALUE 

- VALUE 

•- VA L UE 

- VALUE 
OOOOO586 

•- VALUE 

'- VALUE 



00002555 
00002950 
00003318 

PARAMETER 
PARAMETER 

PARAMETER 
PARAMETER 
♦00000587* 

PARAMETER 
PARAMETER 



00002653 00002660 00002664 *00002674* 00002694 
00003109 *00003136* 00003202 ♦ 00003212^00003233^ 
♦00003326^ 00003339 *00003372* 
-- DECLARED IN SEGMENT 2 AT 00000228 
-- DECLARED jN SEGMENT 2 AT 00000230 



♦00002848* 
*00003265* 



00002860 
00003280 



00002868 
00003293 



— DECLARED IN 
-• DECLARED IN 
00000591 

— DECLARED IN 

— DECLARED IN 



SEGMENT 
SEGMENT 

SEGMENT 
SEGMENT 



AT 
AT 

AT 
AT 



SEGMENT 38 

00002959 
IN SEGMENT 



NAME2 -<• REAL — VALUE PARAMETER — DECLARED IN SEGMENT 2 AT 
NAME2 — REAL — VAlUE PARAMETER — DECLARED In SEGmEnT 2 AT 

-. -- *00000588* 00000591 

N A MTAB "" INTEGER " DECLARED IN 
♦00002956* 00002951 00002952 
NCASELABS " INTEGER — DECLARED 
♦000023l§> 00002319 00002329 
NDIGITS -- DEFINE •- DECLARED IN SEGMENT 2 
00000399 OOOOO4O7 00000499 00000631 
0000234J 00002374 00002390 OOOO3475 
NEGATIVE -- BOOLEAN — DECLARED IN SEGMENT . -• _.„--.... 

•0000 155«^^00002312^*00002660^+00002664+^00002896** 0000 3202^ 

•- BOOLEAN «— DECLARED IN SEGMENT 8 aT 00000678 
*0000098t^ 00000985 



00000580 
00000582 

00000228 
00000230 

00000580 
00000582 



AT 00002942 
29 AT 00002287 

AT 00000235 
00000642 00000884 
00003527 00003690 

2 AT 00000729 



00001042 0000i065 00002245 00002258 00002290 



NEGEXp 

NEOSY 

NEWCARD 

NEWDISP 

NEWnAmE 



mm 



DEFINE " DECLARED IN SEGMENT 2 aT 00000198 
00000477 00000926 00001033 00001759 00001769 

"• DEFINE " DECLARED IN SEGMENT 2 AT 00000263 
00000884 00001065 00003475 

— PROCEDURE — DECLARED IN SEGMENT 2 AT 00002148 
OOOO2181 00002576 00002578 

-- DEFINE •- DECLARED IN SEGMENT 2 
00000506 00000510 00000514 00000518 
00000544 00000553 00000555 00000556 
00003198 00003226 00003253 00003307 
NEWPARAM -- DEFINE — DECLARED IN SEGMeNt 
00003060 00003099 

-- label -• declared in Segment 31 at 00002371 — occurs at 00002378 

00002380 OOOO2381 00002388 
DEFINE — DECLARED JN 



00001780 



AT 00000449 
00000522 00000525 
00000561 00000564 

39 AT 00003073 



00000527 
00000566 



00000531 
00002673 



00000540 
00002832 



00000542 
00002862 



00000543 
00003096 



NEWTRy 

NeWTYPE 

NEWXREF 



OOOO161* OOOO266O 
PROCEDURE 



00002664 
DECLARED 
00000514 
00000555 
00001554 
00002487 
00002896 



00000506 00000510 

00000544 00000553 

00001389 00001427 

00002318 00002405 

00002862 00002868 

00003307 00003318 
NEXTCHAR — DEFINE •- DECLARED IN 

0000088$ 00000890 00000893 
00000984 00001002 
00001041 00001054 



SEGMENT 2 AT 00000351 
00002668 00002691 00002727 
2 AT 00000580 "• 



NILSY 



0000098$ 
00001036 

'• DEFINE 
0000091? 



IN SEGMENT 
00000518 
00000556 
00001881 
00002555 
00003096 

segment 2 

00000899 
OOOO1OO5 
00001059 



00000522 
00000561 
00001890 
00002653 
00003109 



00000525 
00000564 
00001939 
00002660 
00003198 



AT 00000865 
00000901 00000965 



•" DECLARED IN SEGMENT 2 aT 
00001567 

NlLTYPE « INTEGER «•- DECLARED IN SEGMENT 2 
*00000529^ 0000n97 00001355 0000i569 



OOOOlOU 
00001066 
00000205 



00001025 
00001067 



00002762 
FORWARD AT 
00000527 
00000566 
00002030 
00002664 
00003202 



00000966 
00001027 
00001070 



00002782 
00000228 
00000531 
00000592 
00002053 
00002673 
00003226 



00000969 
00001029 



00002797 

00000540 
00001222 
00002082 
00002694 
00003253 



00000973 
00001031 



00000542 
00001319 
00002116 
00002832 
00003279 



00000980 
00001033 



00000543 
00001345 
00002159 
00002860 
00003292 



00000981 
00001035 



AT 00000161 
00001597 00001605 



00001658 00001721 00001790 00001793 00002075 



00002138 00002223 00002316 00002433 00002447 00002901 
NL — INTEGER " DECLARED IN SEGMENT 2 AT 06000578 

♦00000586* 00000587 00000588 
NOAUIST -- FORMAT « DECLARED IN SEGMENT 3 AT 00000188 

00001050 
NOfRRORS — FORMAT — DECLARED jN SeGM e NT 3 A T 00000185 

00003558 
NOTSY — DEFINE — DECLARED IN SEGMENT 2 aT 00000195 

00000919 00001556 
NPARS -* INTEGER — DECLARED IN SEGMENT H AT 0000l28i 

*0000l28(J**0000l289* 00001296 *0000i356* 00001363 
NSIZE «■- INTEftER — DECLARED IN SEGMENT 2 AT 00000295 

♦00001807**0000 1900**0000 1905**0000 1906**00001907**0000 1910**0000 19 11**0000 1912**0000 1959**0000 1960**0000 1973* 

♦0000 1974**0000 1975**0000 1976**0000 1992**0000 199 3**0000 1994**0000 1995**0000 1999**000020 37**00002065**00002066* 

*00002088**00002099«*00002 128**00002 129**00002 144**00002 165**00002 169**000022 18**00002222**00002267**000023 17* 

*0000235»**0000239l**0000243 1**0000244 5**00002582**00002980**00002982**0000304 0**0000304 1**00003042**00003054* 
♦0000305** 

NUMBEGINS — INTEGER — DECLARED IN SEGMENT 2 AT 00000173 

*0000224|* 

NUMBER — DEFINE •- DECLARED IN SEGMENT 2 A? 00000212 

0000127* 00001364 00001386 00001399 00001562 00001585 

NUMBLoCKS — INTEGER — DECLARED IN SEGMENT 2 AT 00000137 

♦00002793**0000 3380* 

NUMCASES •• INTEGER — DECLARED IN SEGMENT E AT 00000174 

♦00002290* 

IN SEGMENT 2 AT 00000117 

♦00003207**00003208* 00003209 

SEG M ENT 2 AT 00000083 

0000i4l7 00001439 00001475 OOOO1483 00001490 0000i534 

00001658 00001687 00001692 00001720 00001721 00001789 

00001897 00001905 00001970 00001973 00001981 00001987 

00002433 00002447 00002660 00002664 00002896 00002901 

AT 00000027 



00001635 00001693 



NUMERRS 



OOOO14O9 

00001657 
OOOO1861 
00002316 
SEGMENT ; 



NUMcONSTS — INTEGER *- DECLARED 

*0000053|* 00003160 00003206 

NUM E R fC '" DEFINE — DFCLa^ED IN 

0000050* 0000n97 00001355 

0000159? 00001605 00001633 

00001793 00001855 00001858 

00002138 00002223 00002312 

-* INTEGER -» DECLARED IN 

♦00000394* 00003531 00003681 

NUMEXTFILES — INTEGER — DECLARED IN SEGMENT 2 AT 00000151 

00003001 *00003495* 00003496 00003497 00003498 
NUMFILE5 — INTEGER — DECLARED IN SEGMENT B AT 00000153 

00002993 *00002994* 00002995 00003007 *00003009* 00003010 
NuMfORWaRdS •- INTEGER " DECLARED I N SEGMENT 40 AT 00003149 

♦00003300**00003373* 00003394 
NUMLABS -- INTEGER -• DECLARED IN SEGMENT 2 AT 00000123 

00002469 OOOO2536 00003159 OOOO3178 *00003l80**00003l8l* 

DECLARED IN SEGMENT 2 AT 00000113 
♦00003099* OOOO3115 00003121 00003135 
DECLARED IN SEGMENT 2 AT 00000149 
00002704 OOOO3273 00003276 *00003284* 
" DECLARED IN SEGMENT 2 AT 00000076 



00003210 *00003436* 



00001554 
00001790 
00002075 
00003202 



NUMPARAMS — INTEGER -■ 
•00003088* 00003091 

NUMPNTRS -• INTEGER »» 
•00002701* 00002703 

NUMPNTRSINWITH — DEFINE 



00003164 00003413 *Q0003425* 



00003182 00003431 *00003434* 

00003143 00003162 00003308 *00003438* 



00001173 00002502 
NUMPOINTERS — INTEGER — DECLARED IN SEGMENT 2 AT 00001156 

*0000117J^00001256^ 00001267 ♦00001270* 00002502 *00002518* 
NuMRePS — INTEGER — DECLARED IN SEGMENT 2 AT 00000175 

♦00002373* 
NUMSYMS -- INTEGER -• DECLARED IN SeGMeNT 2 AT 00000143 

0000H65 *0000 11 70**0000 11 80**0000 n89*»0000 11 94**0000 11 96**0000 120 1**00001 202**00001 203**0000 1205**0000 1206* 
•00001216**00001226**00001227**00001238* 00001242 *0000l243**0000l248* 00001250 00001252 *0000l256**0000 1266* 
•00001268**00001269**00001285**00001293**00001302**0000130 3**00001307**00001310**00001311**00001312**00001328* 
♦OOOOl 329**00001 33q**00001 349**00001 357**00001 360**00001 397**00001 398**00001409**0000141 6**00001428**00001429* 



♦0000 14 39**0000 1445**0000 145 3**0000 1459**0000 146 3**0000 1465**0000 1466**0000 1467**0000 1468**0000 1475**0000 1477* 
♦0000 1478**0000 1483**0000 1484**0000 1485**0000 1490**0000 1491**00001 492**0000 1500**0000 1505**0000 15 10**0000 15 15* 
* 00001 52p**0000 1524**0000 15 33**0000 15 34**0000 1554**00001558** 00001 563**0000 156 9**0000 157 4**0000 1577**00001 585* 
♦0000 1592**0000 1600**0000 1607**0000 1608**0000 1626**0000 16 36**0000 16 37**0000 164 1**0000 1647**0000 1648**0000 1651* 
*0000l667**0000l677**0000 1680**0000 1694**0000 1695**0000 170 1**0000 1702**00001 708**0000 1709**00001 7 10**0000 17 14* 
♦00001727**00001740* 00001741 *0000l 743**00001 744**00001 753**00001 754**00001755**00001 756**00001 757**00001 758* 
*0000 1759**0000 1762**0000 1768**0000 1770**0000 1775**0000 1779**0000 1780**0000 178 3**00001 795**0000 lf96**0000 1805* 
*000o 1807**0000 184 1**0000 1850**0000 1655**0000 1858**0000 186 1**0000 1862**0000 186 3**0000 1900**00002088**00002 165* 
♦000022 18**00002220** 00002222**0000 2267**0000235 3**0000239 1**000024 30**000024 3 1**0000 2444**0000 2445**00002496* 
00002505 00002506 *00002517**00002562* 
NUMTEMPS — INTEGER — DECLARED IN SEGMENT 2 AT 00000176 

*0000229|**00002344**00002434* 00002443 00002457 *00002460* 
NUMTYPES — INTEGER — DECLARED IN SEGMENT 2 AT 00000104 

*00000528*#00000558**00001614**00002660**00002664**00002668**00002691**00002727**00002762**00002782**00002797* 
00003161 *00003437* 
NUMXRpF •• INTEGER — DECLARED IN SEGMENT 2 AT 00000137 

00000626 *000006 32**000006 36**0000064 3* 
NWITHSYmS *• INTEGER — DECLARED IN SEGMEnT 2 AT 00000145 

0000248? 00002503 00002505 00002508 *00002509* 00002511 *00002525* 
OFSY -- DEFINE « DECLARED IN SEGMENT 2 AT 00000203 

00000911 00002298 00002300 00002301 00002734 00002752 00002772 00002882 00002883 00002884 00002885 
00002886 00002887 
ORSY -* DEFINE " DFCLARED IN SEGMENT 2 AT 00000197 

00000910 00001689 00001702 
OUTPUTDECL — BOOLEAN — DECLARED IN SEGMENT 2 AT 00000163 

00001427 OOOO1881 00001939 OOOO2O36 H00003492* ' 

OUTPUTFILE — INTEGER — DECLARED IN SEGMENT 2 AT OOOOO162 

♦00000567* 0000H27 00001881 000Q1939 00002030 
OVERFLOW — LABEL — DECLARED IN SEGMENT 8 AT 00000879 — OCCURS AT 00000997 

00000991 
P "•• INTEGER — DECLARED IN SEGMENT U AT 00001281 

*Q000 1286**0000 1288**0000 129 7* 
P — POINTER -- DECLARED IN SEGMENT 19 AT 0*001937 

♦00001954**00001956* 
PACK — PROCEDURE -- DECLARED IN SEGMENT 2 AT 00002043 
00002100 00002579 

packed "• boolean — declared in segment 2 *t 00002612 

♦00002650**00002710* 
PACKEDS* — DEFINE — DECLARED IN SEGMENT 2 AT 00000209 

00000944 00002710 
PAGECNT — INTEGER •- DECLARED JN SEGMENT 2 AT 00000132 

*0000040f**00000499^^000006 3 1**00000642**00000884**0000 1042**0000 1065**0000 3475**0000 3527**0000 3690^ 
PARAM — INTEGER *• DECLARED IN SEGMENT li AT 0000l28i 

*0000'l29t* 00001298 00001299 00001315 00001325 00001348 
PARAM «•• BOOLEAN "- VALUE PARAMETER -» DECLARED IN SEGMENT 2 AT 00002936 
PARAM -- BOOLEAN — VALUE PARAMETER -• DECLARED IN SEGMENT 2 AT 00002940 
0000293? 00002981 00002991 00003005 00003020 00003051 00003055 

parameter •* befine — declared in segment 12 at 00001374 

00001409 00001439 00001475 00001483 00001490 00001534 
PaRaMfTfRLisT — PROCFDURE "" DECLARED IN SEGMENT 2 AT 00003068 

00003144 00003311 

PARAMFILE — DEFINE — DECLARED IN SEGMENT 2 *T 0O00OH2 

00001328 00003122 00003345 

PARAMKlND — DEFINE »• DECLARED In SEGMENT 2 AT 00000109 

0000129$ 00001315 00001348 00003097 00003357 
PARAMLEVEL — DEFINE — DECLARED IN SEGMENT 2 AT 00000110 

00003098 



PARAMNAME •• ftEFlNE — DFCl-ARED IN SEGMeNj 2 AT 00000106 

00003136 00003344 00003346 00003350 00003363 
paRamtab — Real ARRAY " DECLARED IN SEGMENT 2 AT 00000107 

00001268 00001297 *00003099**000031 16**00003122* 00003136 

00003359 00003357 00003363 00003366 
PARAMTABTOP — INTEGER — DECLARED JN SEGMENT 40 AT 00003155 

*0Q003l6fc* 00003438 
PARAMTYPE — DEFINE — DECLARED IN SEGMENT ? AT 00000m 

0000129B 00003H6 
PASCALGOL — |ILE — DECLARED In SEGMENT 2 AT 00000035 

00000361 00001049 00001050 00003461 00003470 00003548 
PASCRUN — FILE — DECLARED IN SEGMENT 41 AT 00003463 

0000346| 
PaSSPaRaMS — PROCEDURE — DECLARED IN SECANT 2 AT 00001279 

00001365 00001541 00001547 0000256} 
PLUS — DEFINE •- DECLARED IN SEGMENT 2 AT 00000196 

00000478 00001554 00001678 OOOO168O 00001689 00001694 

00002890 00003202 
PNTRTaBI — REAL ARRAY — DECLARED IN SEGMENT 2 AT 00000148 

♦0000270J* 00003278 
PNTRTAB8 -- REAL ARRAY •• DECLARED 

*0000270J* 00003278 
PNTRTAB3 — REAL ARRAY -- DECLARED 



IN SEGMENT 2 AT 00000148 
IN SEGMENT 2 AT 00000148 



♦00002704* 00003282 
POINTERS — DEFINE — DECLARED IN SEGMENT 2 AT 00000092 



PREAD 



00001605 00001658 
00002433 00002447 
8 AT 00000093 
00001605 00001658 
00002447 00002698 
INTE6ER -• DECLARED IN SEGMENT 4 AT 00000317 
♦00000332**00000333* 00000339 *00000340* 00000341 
»■• PROCEDURE — DECLARED IN SEGMENT 2 AT 00001875 



0000ll9f 00001246 

00002138 00002163 

POjNTTYPE — DEFINE — 
0000ll9f 00001259 

00002166 00002223 

POWER *•■ 



00001355 00001597 
00002223 00002316 
DECLARED IN SEGMeNt 
00001355 00001597 
00002316 00002433 



00001930 00002568 
PRINTERRORS — PROCEDURE 

00000412 00000884 
PRINTLINE — BEFINE — 

0000040F 00000884 

PRlNTxREF " PROCEDURE 



00002569 

»• DECLARED IN SEGMENT 2 AT 00000405 
00001065 00003475 00003528 
DECLARED IN SEGMENy g AT 00000249 
00001065 00003475 00003527 
— DECLARED IN SEGMENT 2 AT 00000613 



00000654 00003691 
PROC •- DEFINE — DECLARED IN SEGMENT 2 AT 
00000538 00001545 00002561 OOOO3O88 

procnum •• Integer •- value parameter •• 
procnum — Integer — value parameter — 

00002022 00002033 

procsy — define — declared in segment 2 AT 

00000949 00003085 00003287 00003404 
PROgNaMe — ALPHA — DECLARED 

♦00003483* 00003554 
PROgNaMeLeNgTh -* INTEGER 

♦00003485* 00003554 
PROGRAMSY — DEFINE — DECLARED IN SEGMENT 2 AT OOOOO2O8 

00000949 00003478 
PTYpE — INTE8ER — DECLARED In SEGMENT U AT 00001281 

♦00001298* 00001301 00001310 000013U 00001355 
PUTCONST — DEFINE — DECLARED IN SEGMENT 2 AT 00001110 

00001196 00001201 00001202 00001205 00001227 00001310 



00000064 

00003105 00003131 
DECLARED IN SEGMENT 
DECLARED IN SEGMENT 

00000206 

IN SEGMENT 2 AT 00003455 

-* DECLARED IN SEGMENT 2 AT 00003454 



*00003l43* 00003339 00003344 00003345 00003348 



00003549 



00001709 00002312 00002660 00002664 00002891 



00001721 00001777 00001790 00001793 00002075 

00002691 00002901 00003324 

00001721 00001790 00001793 00002075 00002136 

00002901 00003282 



00003294 00003301 
2 AT 00002018 
2 AT 00002019 



00003309 



00001311 00001312 00001397 00001398 00001416 



00001465 00001466 00001467 
00002220 00002430 00002444 
PUTOUMMY — DEFINE »• DECLARED IN 
OOOO13O5 OOOO1558 OOOO1626 
00002353 00002391 

- DEFINE — DECLARED IN SEGMENT 2 AT 
00001189 00001285 00001328 OOOO1329 
DEFINE — DECLARED IN SEGMENT 2 AT 



00001478 00001485 00001492 00001554 00001569 00001585 00001607 00001862 



SEGMENT 2 
0000i65i 



AT 00001H6 
00001677 Q000i7i*i 



00001740 00001743 0000i744 OOOO1783 00002267 



PUTlD 



PUTSYM — 



PUTTEXT 



0000H89 0000H96 00001201 

00001261 00001293 00001307 

00001416 00001439 00001445 

00001478 00001483 00001484 

00001600 00001607 00001636 

00001727 00001753 00001754 

00001775 00001779 00001780 

00001863 00001863 00002220 

•" DEFINE " DECLARED IN 

0000n78 OOOOnSO OO00H89 



PWRITF 



00001226 
00001303 
00001397 
00001465 
00001491 
0000i554 
00001626 
00001695 
00001753 
00001779 
00001862 



00001227 
00001307 
00001398 
00001466 
00001492 
OOOO1558 
00001636 
00001701 
00001754 
00001780 
00001663 



PX 



PI 



•- PROCEDURE — 
00002015 00002565 



00001238 
00001310 
00001409 
00001467 
00001500 
00001563 
00001637 
00001702 
00001755 
00001783 
00002220 
DECLARED IN 



OOOO12O2 

00001310 

00001453 

OOOO1485 

00001637 

00001755 
00001795 

00002267 
SEGMENT 2 
0000n94 
00001243 
00001311 
00001416 
00001468 
00001505 
0000069 
0000j64i 
00001708 
00001756 
00001795 
00002267 
SEGMENT 



00001121 
00001330 
00001104 



00001349 00001428 



00001203 

00001311 

00001463 

00001490 

00001647 

00001756 

00001796 

00002353 
AT 00001095 

00O0H96 

00001246 

00001312 

00001426 

00001475 

00001510 

00001574 

00001647 

00001709 

00001757 

00001796 

00002353 
2 AT 00001933 



00001205 
00001312 
00001465 
00001491 
00001667 
00001757 
00001805 
00002391 



OOOO12O1 
00001266 
00001328 
00001429 
00001477 
00001515 
00001577 
00001646 
00001710 
00001758 

00001805 
00002391 



00001206 
00001328 
00001466 
00001492 
00001680 
00001758 
00001641 
00002430 

00001202 
00001268 
00001329 
00001439 
00001478 
00001520 
00001585 
00001651 
00001714 
00001759 
00001841 
00002430 



00001216 
00001329 
00001467 
00001534 
00001694 
00001759 
00001850 
00002444 

00001203 
00001269 
00001330 
00001445 
00001483 
00001524 
00001592 
00001667 
00001727 
00001762 
00001850 
00002444 



QUOTES — 



00002567 
INTEGER — DECLARED IN SEGMENT 39 AT 60003070 
*0000309Jf**00003098* 00003099 

INTEGER — DECLARED IN SEGMENT 39 AT 80003070 
*0000309l* 00003115 00003121 00003135 

DEFINE — DECLARED IN SEGMENT 2 AT 00000856 
0000100Q 00001005 
RBRACKET — DEFINE — DECLARED IN SEGMENT 2 AT 00000200 

00000477 OOOO12O8 00001209 OOOO1210 00001583 OOOO161O 

DECLARED IN SEGMENT 2 AT 00000i94 

00000969 00001554 00002312 00002660 
•• DECLARED IN SEGMENT 2 AT 00000l9l 

00000997 
DECLARED IN SEGMENT 



00001611 
00002664 



00001612 
00002896 



00001501 
00001661 
00002223 



REALCONST — DEFINE »• 

00000971 00000980 
REALOVERFLOW — UNKNOWN 

00000991 00000993 
REALTYPE — INTEGER •• 

*0000050S* 0000H97 00001355 00001410 

0000153ft 00001554 00001597 OOOOI6O5 

00001722 00001789 00001790 00001793 

0000244? 00002660 00002664 00002896 
REALVAR — BOOLEAN -- DECLARED IN SEGMENT 

00002954 *00002957* 00002966 *00002967**00002$>7 1* 00002989 *00002990« 00003064 
RECINX -- INTEGER — DECLARED IN SEGMENT 36 AT 00002647 

*0000279»* 00002793 00002795 00002798 
RECORD -• DEFINE — DECLARED IN SEGMENT 2 Af 00000097 

00001218 00002494 00002796 
RECQRDSY -• DEFINE — DECLARED IN SEGMENT 2 AT 00000206 

00000381 00000943 00002789 
RECSIZE — INTEGER — DECLARED IN SEGMENT 38 AT 00002942 



2 AT 00000161 
00001476 00001486 
00001657 00001658 
00001870 00002075 
00002901 00002983 
38 AT 00002943 



00001493 
00001659 
00002138 
00003202 



00001226 
00001357 
00001468 
00001563 
00001695 
00001762 
00001855 
00002496 

00001205 
00001285 
00001349 
00001453 
00001484 
00001528 
00001600 
00001677 
00001740 
00001768 
00001855 
00002496 



00002733 
00003202 



00001511 
00001663 
00002312 



00001243 
00001360 
00001475 
00001574 
00001701 
00001768 
00001858 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



1206 
1293 
1357 
1459 
1485 
1533 
1607 
1680 
1743 
1770 
1858 



00001516 
00001720 
00002316 



00001248 
00001409 
00001477 
00001577 
00001708 
00001770 
00001861 



0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 



1216 
1302 
1360 
H63 
1490 
1534 
1608 
1694 
1744 
1775 
1861 



00001535 
00001721 
00002433 



*0000303f* 00003040 00003041 000030*2 
"ECTAR •• DEFINE •• DECLARED IN SEGMENT 2 AT 00000098 
00001222 00001225 00002500 00002T98 



Rectab 

RECTAB 



RECTAB 
RECTAB 



"" I n TegE r 

— INTEGER 
00002615 

— INTEGER 

— Integer 



VALUE 
VALUE 



PARAMETER 
PARAMETER 



DECLARED 
DECLARED 



IN 
IN 



Segment 
segment 



in 
in 



DECLARED 
DECLARED 
00002879 
AT 00000073 



segment 

SEGMENT 
00002913 



VALUE PARAMETER -- 
VALUE PARAMETER — 
00002809 00002832 00002848 00002862 
RECTYPE •" DEFINE *• DFCLaRED IN SEGMENT 2 

00001175 00002501 
ReLOPtR •- INTEGER "» DECLARED IN SEGMENT 16 AT 00001734 

♦00001748* 00001787 
REPEATSTAT — PROCEDURE — DECLARED IN SEGMENT 2 AT 00002368 

0000239a 00002590 
REpEATSY •• DEFINE «• DECLARED IN SEGMENT 2 AT 00000203 

00000941 00002590 
REPNUm — INTEGER — DECLARED IN SEGMENT 31 AT 00002370 
•00002373* 00002374 00002390 

BOOLEAN — DECLARED IN SEGMENT 2 AT 00000157 
00000884 00000955 *000Q1044* 00001065 00003475 
*• DFCLARED IN SEGMENT 2 AT 00000199 



AT 
AT 

AT 
AT 



00002614 
00002616 

00002608 
00002810 



RESWORDOPTION 

00000407 
DEFINE 



rpar 



00003527 



00001432 
00001864 
00002003 
00002142 
00003140 



00001450 
00001867 
00002039 
00002179 



00000477 00001296 00001359 0000l36i 00001409 00001418 00001419 

00001469 0000H70 00001475 OOOO1483 00001490 00001534 00001576 

00001868 00001869 00001871 0000i885 00001920 00001921 00001943 

0000209| 00002095 00002096 0000209/ 00002139 00002140 00002141 

00002180 00002678 00002683 00002886 00002915 00003138 00003139 
RT — INTEGER — DECLARED IN SEGMENT 2 AT 00000658 

*0000n9i**0000 1355**0000 1597**0000 j605**0000 1658**0000 1721**0000 1790**0000 1793**00002075**00002 138**00002??^* 
*00002316**00002433**00002447**0000290i* ' 

SAVEFACIOR *« INTEGER •• DECLARED IN SEGMENT 2 AT 00000028 

0000355? 00003558 00003564 OOOO3566 *00000973**00000987* 00000992 



00001433 
00001865 
00002004 
00002176 
00003503 



00001439 
00001866 
00002038 
00002178 
00003504 



SEARCH — 



00001427 00001554 
00002405 00002487 
00003202 00003279 
2 AT 00000200 



SIGNED 
SIGNED 



DEFINE — DECLARED IN SEGMENT 2 AT 00000436 
00001319 00001345 00001389 00001427 00001554 00001881 
00002116 00002159 00002312 00002405 00002487 00002555 
00002868 00002896 00003109 00003202 00003316 

DECLARED IN SEGMENT fc AT 000004?! 
00001345 OOOO1389 
00002159 00002312 
00002896 00003109 
DECLARED IN SEGMENT 
00002248 00002253 
00002890 00002919 
00003267 00003304 
00003508 
- DECLARED IN SEGMENT 2 AT 00000090 
00001355 00001597 OOOO16O5 00001614 
00001790 00001792 0000i793 00002075 
00002901 

-• DECLARED IN SEGMENT 2 AT 00000207 
00002769 
— DEPINE " DECLARED IN 
00O0H97 OOOO1355 00001597 
0000222S 00002316 00002433 
BOOLEAN •- DECLARED IN 



SeARChTAB ** OEFlNE — 
00001221 OOOO1319 
00002082 00002H6 
00002868 00002868 

semicolon *- define -- 
00000386 00000477 

00002821 00002851 

00003236 00003266 

00003506 00003507 
S E T — DEFINE 

0000ii9X 

0000176J 

00002787 
SETSY — DEFINE 

0000092i 
SETTypE 



00002305 
00003137 
00003333 



00002337 
00003187 
00003335 



0000i6i9 
00002138 



00001890 
00002653 



OOOO1881 
00002555 
00003292 

00002338 
00003213 
00003336 



00001643 
00002223 



00001939 
00002660 



00001890 
00002653 
00003318 

00002340 
00003214 
00003386 



00001649 
00002316 



00002030 
00002664 



00001939 
00002660 



00002341 
00003215 
00003403 



00001658 
00002433 



00002053 
00002S94 



00002030 
00002664 



00002382 
00003234 
00003503 



00001704 
00002447 



00002082 
00002860 



00002053 
00002694 



00002595 
00003235 
00003505 



00001721 
00002783 



SEGMENT ? 
OOOO16O5 

00002447 
SEGMENT 2 



AT 00000091 
00001615 00001658 
00002783 00002901 

AT 00000729 



00001721 00001790 00001793 00002075 00002138 



♦00001554**00002312**00002660**00002664**00002896**00003202* 

— BOOLEAN — DECLARED IN SEGMENT 15 A T 00001675 
♦00001679* 00001685 



s 



SIMPL.EEXPRESSION •- PROCEDURE — DECLARED IN SEGMENT 2 AT 00001672 
00001729 00001745 0000i784 

simplevariable •- boolean — declared in segment 2 at 00001155 



SUE 



SKIP 



♦00001174**00001 179**00001184* 00001336 
»• DEFINE — DECLARED IN SEGMENT 2 AT 



00000504 00001204 00001205 
00002743 00002764 00002784 
PROCEDURE •• DECLARED IN 



00000388 
00001483 
00001920 
00002209 
00002438 
00002882 
00003214 
00003335 



00000365 

00001475 

00001869 

00002179 

00002425 

00002840 

00003213 

00003333 
SLASH — OEFltJE 

00000477 
START — LABEK 

00000884 
START — LaBEC 

00003405 
STARTLEVEl — INTEGER 

*0000248g* 00002525 
STARTSYM — INTEGER •- 

*0000n6g* 00001252 
STARTSYM — INTEGER — 

*00001558* 00001563 
STARTSYM — INTEGER — 

100001626* 00001647 
STARTSYM — INTEGER -• 

*00001677* 00001701 
STARTSYM — • INTEGER •• 

♦00001743* 00001753 
STATEMENT « PROCEDURE 



00001209 
00001490 
00002003 
00002233 
00002450 

00002883 

00003215 

00003336 
" DECLARED IN SEGMENT 2 aT 
00001637 00001663 
•" DECLARED IN SEGMENT 8 AT 
00001071 
— DECLARED IN SEGMENT 40 A T 



00001614 
00002799 
SEGMENT 2 
00001296 
00001534 
00002038 
00002255 
00002521 
00002684 
00003234 
00003388 



00002495 
•0000102 
00002167 



00002658 0000266Q 00002664 00002680 00002692 00002726 



AT 00000379 
00001359 00001409 



00001576 
00002094 
00002270 
00002547 
00002685 
00003235 
00003403 
00000195 

00000879 



000016H 
00002095 
00002300 
00002583 
00002886 
00003236 
00003503 



00001416 
00001864 
00002096 
00002334 
00002595 
00002909 
00003256 
00003505 



00001432 
00001865 
00002139 
00002338 
00002678 
00002915 
00003258 
00003506 



0000 
0000 
0000 
0000 
0000 

0000 
0000 

0000 



1439 
1866 
2140 
2342 
2734 
3139 
3266 
3507 



OCCURS AT 00000881 



00003153 — OCCURS AT 00003168 



00002249 
STATM — LABEL 
00002251 

STATM -- LABEL 

00002358 
STATM — LABEL 

0000242F 
STRING — REAL 

00000499 
STRINGPNT •• POINTER 

♦00000490* 00001009 



•" DECLARED IN SEQMfNj 34 AT 00002480 



DECLARED IN SEGMENT lO AT OOOO116O 

00001254 OOOO1255 
DECLARED IN SEGMENT 12 AT 00001370 
*00001592* 00001600 
DECLARED IN SEGMENT 14 AT 00001625 
*00001651* 00001667 
DECLARED IN SEGMENT 15 AT 00001674 

00001708 ♦00001714* 00001727 
DECLARED IN SEGMeNj 16 AT 00001734 

00001762 00001768 00001773 00001774 
DECLARED IN SEGMENT 2 AT 00002529 



00002276 00002278 0000 2 336 00002363 

— DECLARED IN SEGMENT 2 7 AT 00002243 
00002252 00002256 

— DECLARED IN SEGMENT 30 AT 00002351 



♦00001783* 00001795 
FORWARD AT 0000219) 
00002378 00002458 00002524 
-- OCCURS AT 00002249 



00002596 



-» DECLARED 
00002441 
ARRAY — 



IN SEGMENT 32 AT 00002399 -» 
DECLARED IN SEGMENT 2 AT 00000126 



OCCURS AT 00002363 
OCCURS AT 00002458 



DECLARED IN SEGMENT 2 AT 00000127 
00001016 00001020 00001951 
STRUCT *" DEFINE •"* DECLARED IN SEGMENT 2 AT 00000103 



00001264 
00002765 



00001335 
00002783 



0000050* 00000559 00001206 00001238 

0000269g 00002738 00002742 00002760 

00003123 00003124 
STYPE — INTEGER — DECLARED IN SEGMENT 12 

00001594 *0000is95* 00001597 OOOO16O2 
SUBRANGE •- DIFINE -• DECLARED IN SEGMENT 2 

00002660 00002664 
SUBTYPE »" DEFINE — DECLARED IN SEGMENT 2 AT 00000085 

00001197 00001355 00001597 00001605 00001658 00001721 

00002316 00002433 00002447 00002660 00002664 00002901 



AT 00001370 
♦00001603* 00001605 
AT 00002619 



00001614 
00002798 



00001615 



00002213 
00002963 



00002660 
00002985 



00001450 
00001667 
00002141 
00002356 
00002801 
00003184 
00003267 
00003508 



00002664 
0000 3038 



0000 
0000 
0000 
0000 
0000 
0000 
0000 



1469 
1868 
2178 
2387 
2803 
3187 
3304 



00002679 
00003049 



00001790 00001793 00002075 00002138 00002223 



sx -- 

sx -- 

sx •» 

SYMBOL 

SYMBOL 
SYMBOL 

SYMBOL 

SYMKINl 

SYMTAB 



00002764 00002776 00002795 *00002796* 00002799 00002800 



Real •• declared in segment 2 at 0000*092 

* 0000 1 807»*0000 1900**00002088** 00002165**000022 16**00002222**00002267**0000 235 3**0000 239 1**000024 3 1**0000 2445* 
*00002582* 

INTEGER — DECLARED IN SEGMENT 36 AT Q0002647 
00002719 00002736 *00002743* 00002746 00002756 
INTEGER — DECLARED IN SEGMENT 37 AT 00002814 
00002842 00002847 

— INTEGER ARRAY — DECLARED IN SEGM|NT 2 AT 
•00000475* 00001025 
-" INTEGER •" VALUE PARAMETER — DECLARED IN 
•• INTEGER — ' VALUE PARAMETER *- DECLARED IN SEGMENT 
00000382 

IC — DEFINE — DECLARED IN SEGMENT 2 AT 00000084 



00000146 
SEGMENT 



AT 
AT 



00000379 
00000380 



00000513? 00002660 
— INTEGER ARRAY 
0000038f *00000ft70* 
00002359 00002381 
00003408 

REAL ARRAY 



00002664 00002679 

-• DECLARED IN SEGMENT 2 AT 00000147 

00001427 OOOO1881 00001883 0000i939 00001941 00002030 

00002386 00002427 00002441 00002594 00003189 00003216 



00002210 
00003237 



00002252 
00003268 



00002273 
00003390 



T •• 

T ■» * 

T •• 

T ••» 

T •» 

T " 

T •• 

TAB ■ 

TAB . 

TABLE 
TABLE 

TABLE 
TABLE 



.,u„„ „rm*. * DECLARED IN SEGMENT 2 AT 00000142 
♦0000 11 70**0000 11 80**0000 11 89**0000 1194**0000 11 96**0000 120 1**0000 1202**0000 120 3**0000 1205**0000 1206**00001 21 6* 

♦ 00001 226**0000 1227**0000 1238**0000 1242**0000 1243**0000 1248**0000 1253**0000 1 254**0000 1255**0000 1266**0000 1268* 
♦00001269**00001285**00001293**00001302**00001303**00001307**00001310**00001311**00001312**00001328**00001329* 
♦00001330**00001 349**00001 357**0000i 360**0000 1397**0000 1398**0000 1409**0000 14 16**0000 1428**00001429**00001439* 
*0000 1441**0000 1453**0000 1459**0000 1463**0000 1465**0000 1466**0000 1467**0000 1468**0000 1475**0000 1477**0000 1478* 
♦0000 1485**00001484**0000 1485**0000 1490**0000 149 1**0000 1492**0000 1500**00001505**0000 15 10**00001515**0000 1520* 
*0000152«**00001533**00001 534**0000 1 554**00001558**0000 1563**00001 569**00001 574**0000 1577**00001585**00001 592* 
♦0000 160§**0000 1607**0000 1608**0000 1626**0000 1636**0000 1637**0000 1641**0000 1647**0000 1648**0000 165 1**0000 166T* 
*0000167F**0000 1680**0000 1694**00001695**0000 170 1**0000 1702**00001 708**0000 1709**0000 17 10**0000 1714**0000 1727* 
♦00001 740**0000 174 3**0000 1744**00001 753**0000 1754**00001 755**0000 1756**0000 1757**0000 1758**0000 1759**0000 1762* 
♦00001768**0000 1770**0000 1773**0000 1774**0000 1775**0000 1779**0000 1780**0000 1783**0000 1795**0000 1196**0000 1804* 
*0000l805* 00001807 *0000 I84l**0000l850**0000l855**0000l858**0000l86l**0000l862**00001863* 00001900 00002088 

00002165 00002218 #00002220* 00002222 *00002267**00002353**0000239l**00002430* 00002431 *00002444* 00002445 
♦00002496* 00002508 00002582 

Real — declaRfd in segment 10 at ooqoji6i 

♦ 00001168* 0O0OH69 OOOOH72 0000n73 ♦OOOOl 175**00001 19 t* 0000H93 0000n97 
00001228 00001225 *O0O0l234* OOOO1235 00001237 00001240 00001246 00001259 

INTEGER — DECLARED IN SEGMENT 12 AT 00001370 

♦00001540* 00001542 

INTEGER — DECLARED IN SEGMENT 23 AT 09002045 

*00002058* 00002059 00002061 00002062 

INTEGER -• DECLARED IN SEGMENT 24 AT 08002105 

♦00002121* 00002122 00002124 00002125 

INTEGER •• DECLARED IN SEGMENT 29 AT 00002287 

♦00002324* 00002325 *00002326* 00002327 

INTEGER "" DECLARED IN SEGMENT 36 AT 00002647 

*000027lft* 00002723 *00002730* 00002739 00002741 

INTeseR " DECLARED IN SEGMENT 39 A T 00003070 

♦00003119* 00003120 00003123 OOOO3124 

INTEGER -• DECLARED IN SEGMENT 40 AT 0Q003149 

♦00003323* OOOO3324 *00003339* OOOO334O 00003343 



00001198 *0000l2l7* 00001218 



♦00002744**00002758* 00002759 00002760 00002763 



PARAMETER 
PARAMETER 



INTEGER ARRAY •- NAME 

• INTEGER ARRAY — NAME 
00002950 

— integer — value parameter 

•»• integer — value parameter 

00000229 

*- INTEGER — VALUE PARAMETER 

— INTEGER mm VALUE PARAMETER 



DECLARED 
- DECLARED 



00003356 00003366 *0000338l* 00003385 
IN SEGMENT 2 AT 00002936 
IN SEGMENT 2 AT 00002938 



DECLARED 
DECLARED 

DECLARED 
DECLARED 



IN 
IN 

IN 
IN 



SEGMENT 
SEGMENT 

SEGMENT 
SEGMENT 



AT 
AT 

AT 

AT 



00000228 
00000231 

00000580 
00000583 



0000058* 00000589 
TEMPSYM — ALPHA -- DECLARED IN SEGMENT 2 AT 0000 
♦0000 ll8f«*0000 li 96**00001 20 l**0000i20?**0000l 
♦00001265**00001293**00001307**00001310**00001 
+ 0000 14 16**0000 14 39** 0000 1445**0000 145 3**00001 
♦0000 14 f8 **0000 H8 3**0000 1484**0000 1485**00001 
♦00001600**00001607**00001636**00001637**00001 
*0000 1727**0000 175 3**00001 754**0000i 755**00001 
•0000 1779**0000 1779**0000 1780**0000 1795**00001 
♦00001862**0000186 3**00002220**00002267**00002 
TeMPVaRNUM — INTEGER — DECLARED IN SEGMENT 29 A 

*0000229|* 00002?92 00002293 00002317 
TERM -* PROCE0URE — DECLARED IN SEGMENT 2 

00001669 00001683 00001715 
TERMINAL •- DEFINE •• DECLARED IN SEGMENT 2 

00000470 00000471 00001427 00001881 
TERMMESS — FORMAT -- DECLARED IN SEGMENT 3 
0000352S 

text — Real array — declared ^i" segm e nt 2 at 00000 

♦00000 322**00000 328**00000 3 39**00000 34 3**00000 344 
*0000 11 80**0000 12 85**0000 132 8** 00001 329** 0000 1330 
♦0000 1900**0000 190 3** 0000 190 4**0000 1905**0000 1906 
*0000 1926**0000 1927**0000 1929**0000 19 38**0000 1948 
*0000 1965**0000 1966**0000 1969**0000 197 3**0000 1974 
#0000 1992**0000 199 3**0000 1994**0000 1995**0000 1996 
♦00002024**0000 20 25 ♦♦0000 20 26**00002027 ♦♦00002028 
♦00002065**00002066**00002074**000020 78**00002088 
*00002 144**000021 5 1**000021 52**00002165**00002 169 

♦00002266**00002267**0000227 5**00002278**0000 22'0 
*00002349**0000234 3**0000 2352**0000 235 3**0000 2361 
*00002429**000024 3 1**000024 32**00002443**00002445 
*00002472**00002543**00002582**00002956**00002959 
♦000029 74**00002975**00002976**00002979**00002980 
♦0000 30 14**0000 30 15**0000 30 18**0000 3022**0000 3026 
*00003040**0000 304 1**0000 3042**0000 3044**0000 3045 
♦0000 3058**0000 3059**0000 3060**0000 3064**0000 3167 
♦0000 3 347 ++0000 3 349**0000 3352++0000 3 354^+0000 3360 
*0000 3 398** 0000 3409** 0000 34 10** 0000 34 11**0000 34 16 
00002763 00002991 00003037 
TEXTPNT — POINTER — DECLARED IN SEGMENT 2 
OOOOO323 ♦OOOOO488* 00000489 00000494 
00001329 OOOO133O 00001349 0000i428 
TEXTPNTO -- POINTER — 
00000328 00000339 
00001905 
00001938 
00001973 
00001995 
00002027 
00002078 



1091 

203**00001205* 

311**00001312* 

463**00001465* 

490**00001491* 

647**00001667* 

756**00001757* 

796**00001805* 

353**00002391* 

T 00002287 



AT 00001623 

AT 00000211 
00001883 00001939 
AT 00000190 



126 

* 00000468 

**00001349* 

**0000l907* 

**0000l949* 

**0000l975* 

**0000l999* 

♦♦00002030* 

♦♦00002099* 

♦♦00002216* 

**00002293* 
**00002374* 
**00002446* 
**00002960* 
**00002982* 
**00003027* 
**00003046* 
**00003171* 
**00003362* 
♦♦00003418* 



♦ 0000 1 206 ♦♦0000 1 21 6 ♦♦0000 1226 ♦♦0000 1243**0000 1246* 
♦00001 328**0000 1329**0000 135 7**0000 1360**0000 1409* 

♦ 00001 466**0000 1467**0000 1468** 0000 1475**0000 1477* 
♦00001492**000015 34**0000156 3**00001574**00001577* 

♦ 00001680 + + 00001 694**00001 695^00001 701 + + 00001 7 08^ 

♦ 0000 1758 + + 0000 1759**0000 1 762*^ 0000 i768 + *0000l770^ 

♦ 0000 184 1**0000 1650**0000 1855**0000 1858**00001 861* 
*00002 4 30** 00002 444**0000249 6* 



00001941 00002030 00002210 00002273 00002594 



♦00000493 
♦00001428 
♦00001910 
♦00001950 
♦00001976 
♦00002001 
♦00002034 
♦00002106 
♦00002222 
♦00002295 
♦00002375 
♦00002454 
♦00002961 
♦00002986 
♦00003028 
♦00003047 
♦00003185 
♦00003365 
♦00003423 



♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 

♦♦0000 

♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 
♦♦0000 



0645 + 
1807* 
1911* 
1958* 
1977* 
2010* 
2035* 
2113* 
2245 + 
2309 + 
2379+ 
2455 + 
2965 + 
2990 + 
3029 + 
3048+ 
3188* 
3367 + 
3439 + 



♦0000064 
♦0000188 
♦0000191 
♦0000195 
♦0000198 
•0000201 
♦0000203 
♦0000212 
♦0000224 

♦0000231 
♦0000239 
*0000245 
♦0000296 
♦0000301 
♦0000303 
♦0000305 
♦0000333 
♦0000337 
0000353 



7**00001019 
0**00001900 
2**0000l9l8 
9**00001960 
2**00001988 
1**00002012 
6**00002037 
8++00002129 
6**00002250 
7**00002330 
©♦♦00002391 
6**00002457 
6**00002967 

1**00003012 
1**00003034 
1**00003054 
7**00003338 
4**00003389 
6 00000559 



♦ 00001021 
♦♦00001901+ 
♦♦00001925^ 
♦•00001964+ 
♦+00001989+ 
+♦00002014* 
++00002046* 
♦♦00002137* 
♦+00002256+ 
++00002333* 
++00002401* 
+♦00002459* 
**0000297l+ 
++00003013* 
♦+00003036* 
+♦00003056* 
+♦00003342+ 
++00003395* 
00001240 



DECLARED IN SEGMENT 
00000343 00000344 



00001904 
00001929 
00001969 
0000199| 
00002026 
00002071 
00002151 
00002278 
0000236} 
00002446 
00002960 
0000298g 
00003027 



00002165 
00002293 
OOOO2375 
00002454 
00002961 
00002986 
00003028 



00001906 
00001948 
00001974 
00001996 
00002028 
00002086 
00002169 
00002295 
00002379 
00002455 

00002965 
00002990 
00003029 



00001907 
00001949 
00001975 
00001999 
00002030 
00002099 
00002218 
00002309 
00002390 
00002456 
00002966 
OOOO3O11 
00003031 



AT 0000012 
00000495 
00002245 
2 AT 000001 
♦00000486+ 
00001910 
00001950 
00001976 
00002001 
00002034 
00002106 

00002222 
00002317 
00002391 
00002457 
00002967 
00003012 
00003034 



00000646 

00002258 

27 

00001807 

000019H 

00001958 

00001977 

00002010 

00002035 

00002U3 

00002246 

00002330 

00002401 

00002459 

00002971 

00003013 

00003036 



00000649 
00002290 

00001880 
00001912 
00001959 
00001982 
00002011 
00002036 
00002128 
00002250 
00002333 
00002429 
00002472 
00002974 
00003014 
00003040 



OOOO1O2O 
00002343 

00001900 
00001918 
00001960 
00001988 
00002012 
00002037 
00002129 
00002258 
00002340 
00002431 
00002543 
00002975 
00003015 
00003041 



00001180 
00002374 

00001901 
00001925 
00001964 
00001989 
00002014 
00002046 
00002137 
00002266 
00002343 
00002432 
00002582 
00002976 
00003018 
00003042 



00001285 
00002390 

00001902 
00001926 
00001965 
00001992 
00002024 
00002065 
00002144 
00002267 
00002352 
00002|43 
00002956 
00002979 

00003022 
00003044 



00001326 



00001903 
00001927 
00001966 
00001993 
00002025 
00002066 
00002151 
00002275 
00002353 
00002445 
00002959 

00002980 
00003026 
00003045 



00003056 
00003342 
00003395 



00003046 00003047 00003048 00003051 00003054 
00003171 00003185 00003188 00003337 00003338 
00003361 00003365 00003367 00003374 0000338V 
00003418 00003423 00003439 

TEXTTyPE — INTEGER — DECLARED IN SEGMENT 2 AT OOOOO161 
♦00000558* 00000559 00000562 

TFORM •- INTEGER — DECLARED IN SEGMENT 2 AT 00000728 

*00 00 1554**00002 3 12**0000 2660**0000 2664**0000 2896**0000 3 20 2* 

THENSY — DEFINE -- DECLARED IN SEGMENT 2 AT 00000202 
00000928 00002268 00002270 00002271 

THISID *• ALPHA — • DECLARED IN SEGMENT 2 aT 00000416 
00001179 *00001225* 00001227 00001286 00001287 
00001350 *00001389* 00001392 00001393 00001395 
00001545 *0000l554**0000l88l**0000l89o* 00001893 
00002065 00002066 *00002082* OOOO2O65 00002086 
0000220* 00002205 00002228 
00002558 00002559 00002560 
00002698 *00002860* 00002861 



00003058 
00003347 
00003398 



00003059 
00003349 
00003409 



00003060 
00003352 
00003410 



00003064 
00003354 
00003411 



00003167 
00003360 
00003416 



♦00003288* 00003281 00003282 
00003326 
THlSlNDEX — INTEGER *• 
♦00000506* 00000507 



♦00002312**00002405* 
00002561 *00002653* 
♦00002866* 00002671 
♦00003293* 00003294 



*0000l3l9* 00001322 00001323 00001327 
00001397 00001398 00001399 00001402 
00001894 *0000 19 39**0000 20 30**0000 2053* 

♦00002116* 00002119 00002121 00002128 



00002409 
00002656 
00002873 
00003297 



*00001345* 

♦00001427* 

00002056 

00002129 



00001348 

00001540 

00002056 

*00002159* 



00002410 00002414 +00002467* 00002490 *000Q2555* 
00002658 *00002660**00002664**00002fi94* 00002697 
♦00002896**00003109* 00003112 00003114 *00003202* 
00003301 00003302 *00003318* 00003321 00003323 



DECLARED 
♦00000510* 



UU002U63 *OUUU20B2**00O02116* O0UU2J27 *0U002i:>y* 00002227 00002228 *00002312**00002405* 00002408 *000024B7* 
*0000255&*»00002653**00002660*+00002664*+00002673* 00002674 +00002694++00002B32* 00002833 *00002660**00002662* 
♦00002868**00002896**00003096* 00003097 *Q00031Q9**Q0003198**00003202**00003226*+00003253* 00003254 *00003279* 
00003269 *00003292* 00003293 00003296 00003299 +00003307**00003318+ 

THlSLfVEL — INTEGER •- DECLARED IN SEGMENT 2 AT 00000417 

OOOO1166 0000n68 0000n78 0000u80 00001285 *0000i3i9+ 00001328 00001329 00001330 *0000i345* 00001349 
*0000 1389**0000 1427**0000 1554**0000 1881 ♦♦0000 1890 ♦♦0000 19 39**000020 30**0000205 3* 0000206 3 00002064 *00002082* 
♦00002116* 00002126 00002127 *00002l59* 00002227 00002228 *00002312**00002405* 00002408 00002412 00002413 
♦ 0000248***00002555* 0000 256 3 * 00002653** 0000 2660**0000 2664**00002694** 00002860**0000 2868**0000289 6**0000 3 109* 
♦00003202* 00003299 *000Q3318* 

THISTaB — INTEGER ** DECLARED IN SEGMENT 2 AT 00000417 

♦00001 319**00001 345++0000 1389+ 00001404 +00001427**0000 1554**0000 1881 ++00001890++0000 19 39++000020 30* +0000205 3* 
+00002082**00002 11 6**00002 159**000023 12**00002405**00002487**00002555**0000265 3**00002660**00002664* +00002694* 
*00002868**00002868** 00002896**0000 3 109**0000 320 2**0000 33 18* 

TNaMe -- ALPHA — DECLARED I* SEGMENT 2 AT 80000418 

*00000508**000005 10**000005 14**000005 18**00000522**00000525**00000527**000005 3 1**00000540**00000542**0000054 3* 

♦0000054***0000055 3**00000555** 00000556**00000561**00000564**00000566**0000 1222**0000 1319**00001345**0000 1389* 

+00001 42? ++00001 554 ++0000 188 1**0000 1690**0000 19 39**000020 30**0000205 3**00002082**00002 11 6**00002 159**000023 12* 

♦000024 05**00002487** 00002555+* 00002653**0000266 0**00002664** 0000267 3**00002694**000028 32**0000286 0**00002862* 

*00002868+*00002896+*0000 3096**0000 3 109**0000 3 196**0000 3202** 0000 3226**0000 325 3**0000 3279**0000 3292* +0000 330 7* 
•00003318* 

B AT 00000172 

00001554 00001881 00001890 

00002482 00002487 00002497 

00002860 00002868 00002896 



DECLARED IN SEGM£N T 
00001389 0000i427 



00002312 
00002664 



00002405 
00002694 



TOPLEVEL — INTEGER — 

0000131* 00001345 

00002116 00002159 

00002653 00002660 
♦00003386* 
TOPREC — INTEGER -- DECLARED [N SEGMENT 4O AT 00003155 

*00003i6f* OOOO3429 00003433 
ToSY — DEFINE — DECLARED IN SEGmEnT 2 AT 00000205 

00000909 00002435 00002436 00002439 
TSIZE •- INTEGER — NAME PARAMETER — DECLARED IN SEGMENT 
TSUE — INTEGER -» NAME PARAMETER — DECLARED IN SEGMENT 



00001939 00002030 00002053 

*00002499* 00002512 *00002525* 

00003109 *00003166* 00003202 



00002082 
00002555 
00003318 



AT 
AT 



00002637 
00002638 



TSlZE 

TTYPE 
TTYPE 



TTYPE 
TTYPE 

TT1 • 



TT2 -« 

TX — 

TX -- 

TX -- 
TX — 
TYP — 
TYPE • 

TYPfDr 
TYPEIN 



*000o2658,*oo00266o* 
* 00002788**00002799* 



00002661 00002662 *00002664**00002680**00002692* 00002699 000027Q7 *00002746**00002764* 



36 
36 

2 
2 



AT 
AT 



AT 
AT 



0000264 
0000264 

00002637 
00002638 



OOOO2662 *00002664**00002680**0000269l* 00002699 00002707 *00002746**00002762* 



0000264 
0000264 



fNTEGfR — NaM E PaRaM P TeR — OfCUARED IN SEGMENT 

— fNTEGER — NAME PARAMETER — DECLARED IN SEGMENT 
*0000264|* 

— INTE€ER — NAME PARAMETER — DE^ARED IN SEGMENT 
-- INTEGER — NAME PARAMETER — DECLARED IN SEGMENT 
♦00002658**00002660* 0000266: 
*0000278|**00002797* 

-" INTEGER — NAME PARAMETER — DECLARED IN SEGMENT 36 AT 
"" INTESER — NAME PARAMETER -- DECLARED IN SEGMENT 36 AT 
•00002644* 

■ INTEGER — DECLARED IN SEGMENT 2 AT §0000658 

♦00001 197**0000 1355**0000 1597**0000 1605**0000 1658**0000 172 1**0000 1790* 
♦00002316**00002433**0000244 7**00002901* 

* i n tege r — dfcURed i n Segment 2 at 00000658 

*0000 1197**00001355**00001597**0000! 605*10000 1658**0000 172 1**0000 1790**0000 1793**00002075**00002 138* 
♦000023 16**000024 33**00002447**00002901* 
INTEGER — DECLARED IN SEGMENT 2 AT 00001093 

♦ 0000 1807**0000 1900**00002088**000021 65 **«000022 18**00002222**0000226 7* 
•00002582* 



■*0000 179 3**0000 20 75**000021 38 ♦ 



■♦00002353**00002391**00002431* 



♦00002223* 
♦00002223* 
♦00002445* 



INTEGER 

00002719 

00002756 

INTEGER 
00002842 

INTEGER 
0000323* 

iNTEGEft 
+Q000295J* 
- DEFINE 
0000ii7# 
00002058 
00002664 
00003261 



00002736 
00002777 



C L *• PROCEDURE "• 
00002719 00002736 

DEX — INTEGER — 
+00001614+ 00001615 
00002696 00002704 



" DECLARED IN SEGMENT 36 AT §0002647 
00002720 00002722 00002723 00002724 
00002757 00002758 00002764 00002776 

" DECLARED IN SEGMENT 37 AT §0002814 
00002643 00002844 

T" DECLARED IN SEGMENT 40 AT ©0003149 
00003262 ♦0000333** OOOO3340 00003343 

— DECLARED IN SEGMENT 38 aT 00002942 
00002980 00002982 *00002983* 00002984 

— DECLARED IN SEGMENT 2 AT 00000059 
00001227 00001327 0000i350 00001399 

00002066 00002121 00002128 
00002698 00002844 00002873 
00003326 

DECLARED IN SegMfNT 2 AT 00002637 
00002756 00002776 00002805 00002842 
DECLARED IN SEGMENT 2 AT 00000349 
0000 16 16 *00002660 ♦♦00002664 ♦♦00002668 + 
♦00002727+ 00002728 0000272* 00002730 



00002737 00002738 00002742 *00002f44* 
00002779 00002780 00002783 00002785 



00002746 
00002786 



00003352 00003356 00003366 



00002065 
00002668 
00003323 



00001427 
00002129 
00002878 



00001540 00001554 OOOO1881 0000l939 
00002228 00002312 00002414 00002658 
00002896 00002951 00003114 00003202 



00003231 00003262 



00002030 
00002660 
00003239 



00002786 +00002797* 00002799 00002800 
TYPERR — PROCEDURE — DECLARED IN SEGMENT S6 AT 00002640 

0000266| 00002662 00002699 00002707 
TYPES — DEFINE -- DECLARED IN SEGMENT 2 aT 00000065 

0000050ft OOOOO51O 00000514 00000518 00000522 00000560 

00003238 00003281 00003321 
TYPESY »• DEFINE — DECLARED IN SEGMENT 2 AT 00000206 

00000933 00003220 00003404 
TYPeTaBTOP — INTEGER — DECLARED IN SeGMeNT 40 AT 00003155 
♦00003161* 00003437 

typetabi — Real array -• declared jn segment 2 at oooooosi 

+00000505**00000509**0000051 3*+000005l 7^+00000 521 ♦♦00000559* 

00001206 00001217 00001234 0000i238 00001264 0000l30i 

00001439 00001449 00001464 00001475 00001483 00001490 



00002680 
♦00002762* 



00002681 00002682 *0000269i* 
00002766 +00002782+ 00002*84 



00002693 
00002785 



00002656 00002697 00002861 00002871 00003112 



00001605 
00001798 
00001939 



♦00001615* 
00001792 
00001940 



00001632 
00001793 
00001968 



00001657 
00001847 
00001981 



00001658 
00001852 
00001987 



00001686 
00001855 
00002030 



0000H75 
00001335 
00001534 
00001691 
00001858 
00002032 



00001191 
00001355 
00001554 
00001720 
00001861 
00002058 



00001197 
00001409 
00001596 
00001721 
00001881 
00002062 



00001204 
00001417 
00001597 
00001748 
00001882 
00002075 



00001205 
00001427 
00001604 
00001789 
00001896 
00002090 



000021 1Q 

00002312 
♦00002693** 
+0Q002784+* 

00003208 * 

typeTaB8 — real 

+0000050&* 

*0000268|* 
TYPETAB3 — REAL 

♦00000505** 

♦00002660** 
00003056 
TYPEX1 " 1NTEGE 

♦0000266Q** 
TyPe*2 — intege 

+0Q00266Q+* 
TYPEl — INTEGER 

♦00001631* 
TYPEl -" INTEGER 

♦00001691* 
TYPEl — INTEGER 

+0000174S* 
Tl — INTEGER - 

+00000956+* 

♦00002222** 

Tl "«• INTEGE" * 

•00000496* 
Tl -• INTEGER - 

+00002165+* 
Tl -- INTEGER » 

♦00002660** 

♦0000274f*» 

♦00002799+ 
Tl •" INTEGER • 

♦00002873+ 
Tl — INTEGE R * 

♦0000295f+ 
00003054 
T2 "• INTEGER " 
T2 -- INTEGER 

♦00002721+ 
T3 — INTEGER - 

+OOOOH70 + + 
T3 — INTEGER 

♦00000503** 
00000519 * 

♦00000536* 
0000056} * 

T3 — INTEGER 

*00002668** 

T3 -• INTEGER 

+00002844** 
T3 — INTEGER - 

*00003203** 
T4 -- INTEGER 

•00001168* 
T5 • » INTEGER 

♦00001169* 



00002121 
00002316 
00002698* 
00002799* 

00003282* 
ARRAY • 
0000u9? 

00002724 

ARRAY • 
00000517* 
00002664+ 



00002125 
00002415 
00002722 
00002843 
00003323 

DECLARE 
000013J0 
♦00002729* 
- DECLARE 
♦00000521* 
♦00002682* 



00002138 

00002433 

+00002728* 

00002873 



00002163 
00002447 
00002737 
00002896 



00002166 
00002494 
00002738 
00002901 



00002167 00002213 00002219 00002223 00002296 
00002500 00002658 +00002660**00002664**00002681 * 
00002741 *00002744* 00002758 *00002766* 00002779 
00002951 00002984 00003038 00003049 00003119 



D IN SEGMENT 2 AT 00000081 
0000i465 0000l9i0 00002065 
00002780 *00002785**00002800* 

D IN SEGMENT 2 AT 00000081 
0000H92 00001311 00001466 
00002724 *00002729* 00002780 



00002128 
00002874 

000019U 
+00002786* 



00002220 00002417 *00002660**00002664* 

00002980 00003039 00003054 

00002066 00002129 00002220 00002417 

♦00002800* 00002874 00002982 00003039 



R "" DECLARED IN SEG^EN 

00002664* 

R •" DFCLARED IN SEGMEN 

00002664* 

— DECLARED IN SEGMENT 
00001632 00001653 OOOOl 

— DECLARED IN SEGMENT 
00001716 00001718 OOOOl 

" DECLARED IN SEGMENT 
00001785 00001786 OOOOl 

• DECLARED IN SEGMENT 2 
00000957* 00000958 *00001 
00002267**00002353**00002 

• DECLARED IN SEGMENT 5 
00000497 00000498 *00000 

- DECLARED IN SEGMENT 25 
00002166**00002167* 00002 

- DECLARED IN SEGMENT 36 
00002664 ++00002679++00002 
00002742++00002743* 00002 



T 2 AT 000026U 
T 2 AT 00002611 



14 AT 000016 
655 00001657 

15 AT 000016 
720 00001721 

16 AT 000017 
789 00001790 
AT 00000166 
252* 00001253 
39j*+00002431 
AT 00000468 
5O4* 00000505 

AT 90002150 
168 00002169 

AT §0002647 
680* 00002681 
744 +00002763 



25 

< 

74 



00001658 
t 
00001722 



34 

00001793 

+00001614+ 
++00002445* 



00001659 
00001724 



00001664 



*0000l 6 15**0000 1 807** 0000 1900**00002088**000022 18* 
♦00002582* 



* 00000509**00000 5 13**000005 17**0000052 1**00000559* 



♦00002691* 
++00002764+ 



+00002692* 
*00002765* 



00002693 *00002723**00002726* 00002728 
00002766 +00002783**00002784**00002798* 



• DECLARE 
00002875 

• DECLARE 
00002963 
00003056 

- DECLARE 

- DECLARE 
00002725 

- DECLARE 
00003114* 

- DECLARE 
OOOOO5O6* 
00000520** 
OOOOO54O 
00000562** 

DECLARE 
00002674** 

• DECLARE 
00002847* 

- DECLARE 
OOOO321O** 

- DECLARE 
0000H70 

- DECLARE 
00O0H70 



D IN SEGMENT 37 AT 00002814 



D IN SEGMENT 
00002972 00 

D IN SEGMENT 
D IN SEGMENT 
00002726 00 

d in segment 

00003116 00 

d in segment 

00000507 *00 
00000522* 00 
00000542 00 
00000563* 00 
D IN SEGMENT 
00002724* 00 

d in segment 

00002846 *00 

D in segment 
00003211* 00 

D IN SEGMENT 



38 AT 00002942 
002983 *00002984* 00002985 

2 AT 0Q000166 
36 AT ©0002647 
002729 

2 AT Q8OQQ166 
003119 +00003125**00003126* 

5 AT 00000468 
000508**00000510* 00000511 
000523 *00000524+ 00000525 
00000544 +00000546+ 
00000567 
00002647 

00002726 
00002814 
00002879 



00002991 00003037 00003038 00003039 00003049 



000543 
000565 

36 AT 
00 2 725 

37 AT 
00 2 878* 

40 AT 00003149 
003212 +00003232* 
2 AT 00000166 



*00003127**00003132**00003134* 00003136 

*00000512**00000514* 00000515 *00000516**00000518* 
♦00000526* 00000527 *0000053 1**00000532* 00000533 
00000553 00000555 00000556 *00000558**00000560* 



00002729 *00002741* 00002744 



00003233 *00003263* 00003265 *00003308**00003309* 00003310 



D IN SEGMENT 2 AT 00000166 



ULIM — INTEGER « DECLARED IN SEGMENT 10 AT 00001160 

•00001198* 00001196 
ULJM -» INTEGER "• DECLARED IN SEGMENT 32 AT 00002397 

♦00002417* 00002430 00002444 
ULIM -* INTEGER — DECLARED IN SEGMENT 37 AT 00002814 

♦00002874**00002888* 00002900 
UNPACK — PROCEDURE — DECLARED IN SEGMENT 2 AT 00002103 

00002145 00002580 
UNTlLSY *• DEFINE •- DECLARED IN SEGMENT 2 AT 00000204 

00000937 00002383 00002386 00002387 00002388 
USER "- ALPHA — DECLARED IN SEGMENT 2 AT 0«000l69 

00003031 *00003460* 00003461 00003555 00003562 
VAL " mK REAL »■ DECLARED IN SEGMENT 12 AT 00001372 

♦00001554* 
VALUEPARAMS — BOOLEAN — DECLARED IN SEGMENT 40 AT 00003152 

•00003355* 00003359 *00003361* 00003365 

valxi — real — declared in segment 2 at o«oo26io 

♦00002660**00002664* 
VALX2 •- REAL — DECLARED IN SEGMENT 2 AT 00002610 

♦00002660**00002664* 
VAR -- DEFINE — DECLARED IN SEGMENT 2 AT 00000061 

00000568 00001315 00001322 0000i39j> 00001427 OOOO1881 00001893 00001939 00002030 00002056 00002085 
00002119 00002204 00002409 00002490 00002558 00002844 00002878 00003087 00003117 00003263 
VARIARLE — PROCEDURE *" DECLARED IN SEGMfNt 2 AT QQ00U56 

00001276 00001334 00001394 00001896 00002088 00002162 00002207 00002492 00003271 
VARlNnEX — INTEGER — DECLARED IN SEGMENT 8 AT 00000141 

•00003243* 00003245 00003250 *0000325i**00003252* 00003254 00003264 00003270 
VARLIST — jNfEGER ARRAY -- DECLARED IN S E GHENT 2 AT 00000140 
♦00003254* 00003265 00003270 

varnUm — integer -- declared in segment 32 at 00002397 

•00002400* 00002429 00002454 00002455 
VARSY — DEFINE -- DECLARED IN SEGMENT 2 aT 00000207 

00000929 00003085 00003087 00003241 00003247 
VARTYPE — INTEGER "» DECLARED IN SEGMENT 3g AT 00002397 

•00002414* 00002415 00002417 *00002418**00002433**00002447* 
VeRyf?RSTW!ThSYM — INTEGER — DECLARED IN SEGMENT 34 AT 00002480 

*0000248g* 00002525 
Vl — INTEGER -- DECLARED IN SEGMENT 4 AT 08000317 

♦00000334* 00000335 00000336 

V2 — integer — declared in segment 4 at 00000317 

•00000335* 00000337 

whilestjit — Procedure •• declared in segment 2 at 00002349 

00002365 00002589 
WHILESY — DEflNE — DECLARED IN SEGMENT 2 AT 00000204 

00000936 00002589 
WITHSTAT — PROCEDURE — DECLARED IN SEGMfNt 2 AT 00002478 

00002526 00002592 
WIThSy *• DEFINE — DECLARED IN SEGMENT 2 AT 00000208 

00000930 00002592 

wiThTaB — Real array •- declared in segment 2 at 00000144 

0000117© *00002508* 

WRITEALGOL •- PROCEDURE « DECLARED In SEGMENT 2 AT 00000358 — FORWARD AT 00000227 

00000321 00000327 00000328 00000339 00000343 00000344 00000365 00001807 00001880 00001900 00001901 

00001902 00001903 00001904 00001905 00001906 00001907 00001910 00001911 00001912 00001918 00001925 

00001928 00001927 00001929 00001938 00001946 00001949 00001950 00001955 00001958 00001959 00001960 

00001964 00001965 00001966 0000l969 00001973 00001974 00001975 00001976 00001977 00001982 00001988 

00001989 00001992 00001993 0000i994 00001995 00001996 00001999 00002001 00002010 00002011 00002012 



000020U 00002024 

00002046 00002063 

00002128 00002129 

00002246 00002250 

00002330 00002333 

0000240J 00002429 

00002459 00002472 

00002968 00002971 

00003012 00003013 

0000303© 00003031 

00003047 00003048 

00003176 00003185 

00003352 00003354 

00003398 00003409 

wRjTeexrr •- define •- 
0000180* 00001900 
00002582 
X — REAL -• VALUE PARAMETER 
X — REAL — VALUE PARAMETER 

0000031* 00000322 

REAL ARRAY — 
00000407 00000481 
XLINePNt — POINTER "" 

*Q000048f* 00000483 
XREFBLOcK — DEFINE •- 

00000589 00000626 
XREFCARD — DEFINE -« 



00002025 
00002065 
00002137 
00002258 
00002340 
00002431 
00002543 
00002974 
00003014 
00003034 
00003051 
00003188 
00003360 
00003410 
DECLARED 



IN 



00002026 
00002066 
00002144 
00002266 
00002343 
00002432 
00002582 

00002975 
00003015 
00003036 
00003054 
00003337 
OOOO3362 
00003411 

SEGMENT 



00002027 
00002074 
00002151 
00002267 
00002352 
00002443 
00002956 
00002976 
00003016 
00003040 
00003056 
00003338 
00003363 
00003416 



00002028 
00002078 
00002152 
00002275 
00002353 
00002445 
00002959 
00002979 
00003022 
00003041 
00003058 
00003342 
00003365 
00003417 



00002088 OOOO2165 



2 AT 00OOH28 
00002218 00002222 



00002030 
00002088 
00002165 
00002278 
00002361 
00002446 
00002960 
00002980 
00003025 
00003042 
00003059 
00003344 
00003367 
00003418 



00002034 
00002099 
00002169 
00002293 
00002375 
00002454 
00002961 
00002982 
00003026 
00003043 
00003060 
00003347 
00003374 
00003422 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 

0000 

0000 
0000 



2035 
2106 
2218 
2295 
2379 
2455 
2965 
2986 
3027 
3044 
3064 
3348 
3389 
3423 



00002036 
00002113 
00002222 
00002309 
00002390 
00002456 
00002966 
00002990 
00003028 
00003045 
00003167 
00003349 
00003395 
00003439 



00002037 
00002127 
00002228 
00002317 
00002391 
00002457 
00002967 
000030U 
00003029 
00003046 
00003171 
00003350 
00003397 
00003547 



00002267 00002353 0000239i 00002431 00002445 



XLINE - 



•• DECLARED 

"• DECLARED 

00000328 00000329 

DECLARED IN SEGMENT 

00000884 00001065 

DECLARED IN SEGMeN T 

00000884 00000958 

DECURED IN SEGMENT 

00000651 

DECLARED IN SEGMENT 



DECLARED IN SEGMENT 2 AT 00000601 



00000635 00000650 
XREFCoMPARE — BOOLEAN PROCEDURE 

*0000060JJ* 00000610 00003691 
XREFFILE -• FILE « DECLARED IN SEGMENT 2 AT 00000135 

00000591 00000621 00003691 



IN SEGMENT 2 AT 00000313 
IN SEGMENT 2 AT 00000314 

00000344 
2 AT 00000126 

00003475 00003527 
8 AT 00000129 

00001065 00003475 
t AT 00000576 

2 AT 00000575 



XREFL1NE — RIAL ARRAY 

00000619 00000630 

XRefM A X « PROCEDURE " 
00000598 00003691 

XREFOpTiON «■• BOOLEAN 



" DECLARED IN SEGMENT 2 AT 00000136 
00000632 00000641 00000643 00003689 
DECLARED IN SEGMENT 2 AT 00000594 



0000050g 
00000544 
00001389 
00002312 
00002862 
00003307 



OOOOO51O 
00000553 
00001427 
00002405 
00002868 
00003318 



DECLARED 
00000514 
00000555 
00001554 
00002487 
00002896 
00003667 
DECLARED IN 



in segment 2 at 00000157 

00000518 00000522 00000525 

00000556 00000561 00000564 

OOOO1881 00001890 00001939 

00002555 00002653 00002660 

00003096 00003109 00003198 



00000527 
00000566 
00002030 
00002664 
00003202 



00000531 
♦00001047* 
00002053 
00002673 
00003226 



00000540 
00001222 
0000208? 
00002694 
00003253 



00000S42 
00001319 
00002116 
00002832 
00003279 



00000543 
00001345 
00002159 
00002860 
00003292 



00000649 00000650 *0000065l* 
♦00003558**00003559**0000356 0**00003561* 



XREFPNT »•« POINTER — DECLARED IN SEGMENT 2 AT 00000137 

*0000063ji*^00000633* 00000635 *00000636^00000643^ 00000644 00000646 
Z •• REAL ARRAY •» DECLAREO IN SEGMENT 42 AT 00003533 

♦ 00003541J** 00003545**0000355 3^*00003554 ♦*00003555**00003556**00003557* 

♦OOOO 3562**0000 356 3**00003566**00003567**0000 3569* 
ZEROLAB — BOQLEAN — DECLARED IN SEGMENT 29 AT 00002288 

•00002322* 

ziRaRray — Real aRRay — declared jn segment 42 at 00003533 

00003550 00003570 
ZIPNUM -- PROCEDURE •- DECLARED IN SEGMENT 42 AT 00003542 

00003541 00003566 
ZIPPNT « POINTER — DECLARED IN SEGMENT 42 AT 00003534 

*0000354***00003545^0000 3550^ OOOO3551 *0000355 3^*0000 3554**00003555**0000 3556**0000 3557**0000 3558**0000 3559* 
♦0000 3560**0000356 1**0000 3562**0000 3563**00003566**00003567**00003569* 
ZIPTEXT — DEFINE " DECLARED IN SEGMENT 42 AT 00003536 



00003544 00003545 00003553 00003554 00003555 00003556 00003557 00003558 00003559 00003560 0000356J 
00003562 00003563 00003566 00003567 0000356* 



CROSS REFERENCE STATISTICS 

PHASE ONE • SORT 589 IDENTIFIERS 
0125 ELIPSED TIME (MINISEC) 
0112 PROCESSOR TIME 
v 0l20 I/O TIME 

phase two - sort 19683 references 
3137 elapsed time (minisec) 
3m2 processor time 

0132 J/g TIME 

PHASE THREE * PRINT CROSS REFERENCE ( 1766 lInES) 
1 1 51 ELAPSED TIME (MlNiSEC) 
1 f 01 PROCESSOR TIME 
0«30 I/O TIME 

label ooooooocoline ooi78io9?compile pascaL/junk xaLgol xyntax xalgol /pascal 



7EXECUTE 0/R 



PACKET 225 

INPUT 5 CARDS FROM CRA 

TIME 1405 

DATE 78109 WFDNESDAYt 04/19/76 



*** BURROUGHS B5700 DCMCP MARK XVj,0,i78 AND JNTRJNSICS MARK XVI, 0,132 *** 

#N0 MESSAGES TODAY 

14105137 ?EXECUTE 0/R 

14105* 37 ?C0MM0N»1 

14J05I37 7FJLE LINE. LINE PRINT 

14105137 7FILE S« PASCRUN/DISK 

14105138 ?END 

14105138 4lQ/R* 3 BOJ H05 11/22/76 

M»05|39 PBD0226 OUT Oil LlNE|0/R« 3 

14t05t40 DKA IN S£R PAScRUN DlSKlQ/R* 3 

H»05t49 DKA REL PASCRUN DISK|0/R* 3 

14I05J50 PBD0226 ReL OH LjNe 47610/R. 3 

14105150 0/R« 3 EOJ 1405 

14105151 FOR 0/R« 31 PROCESS* 6 SECS. 10* 11 SECS# QLAY» 
14105151 PKT#0225 REMOVED 



LABEL. OOOOOOOQOLINE 00178109?EXECUTE O/R 



/R 



FILE! pascrun/disk 



WEDNESDAY 04/19/78 O2»05 PM 



* ca"d seQxeQ Reset l!$TX 

l%%%%%X%%%%tt%%%%%%%%%tt%%%%%%%%%%%%%%%%%%%%%%%%t%X%l%%%t%%%%%%%% 

% % 

% THE PASCAL RUN TIME-SYSTEM, * 

X % 

X % 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

BEGINS 

INTEGER V V00167«X00168#V00169JX 

FILE INPUT "INPUT* C2#l0)|X 

FILE OUTPUT 1 <2#17)|X 

% 

DEFlNf PROCEDU ^PROCEDURE** % 

FUNCTN .REAL PROCEDURE*. % 

DOWNTO »STEP -i UnTJU*«* 

UpTo sSTEp 1 UNTIt#»X 

B *BOOLEAN#»X 

F00603 #INPUT#*X 

E00742 *OUTPUT#»* 

LASTCH «C5|63#.X 

BUFSIZE >(13l8]# f I 

BUFPNT ■[2t|6]# f | 

EOF «[22ll]#,X 

EOLN «[23U)#,S 

INP «[24I1J#,I 

OUTP *[25U]#,X 

ENDF0UND«[26I1]#,J! 

MEMSjZE PlOOOO#»l 

»AXINT »5497558i3887#JX 
X 
ARRAY MEM[0IMEMSIZE DIV 1022* Of 10223 » TEXT, CHAR [01 0] , TEMPTEXT [01 \9) ,% 

V00*03[0I9]# V00742[OI16]|X 
INTEGER MEMPNT»f,Tlf 100603*1007421* 
POINTER CHARPNT,TEXTPNTjX 
LABEL TERMINATE)* 
FORMAT TERMMESS (»**** PROGRAM EXECUTION TERMINATED AT LINE 

CHECKED («**** THE VALUE ",I*»" IS NOT ]N TmE RANGE 



I*,",")»X 
ERRMARK (X*#"x"},X 



,">.X 
»!*.",, "#X 



%I*." 



CONCAT£R»("**»* CONCAT ERRORI ["»I*»"t",I*t»l"»I*»"J"),i: 
I LLEGALCfi( •♦**** ILLEGAL CARRIAGE CONTROL CHARACTER! "»"•», Al ,"«"> I X 
SWITCH FORMAT ERRMESS |*X 
C)#X 

c»**** N0 riading while eof is true,*), xi 

(«*#** no writing while eof is false,"). X2 

(»**** ILLEGAL CHARACTER,")* X3 

C"**** OVERFLOW ERROR, ")» X4 

("**** NO RtSET/REWRlTE ON INPUT/OUTPUT ,") . *5 

(»**** LINE IMAGE OVERFLOW,")! %(, 

MONITOR EXPOVRUREALOVERFLOWIX 

X 

INTEGER PROCEDURE NUMDI GI TS( N) I X 

VALUE Nl INTEGER NJX 



00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 



NUMDIGI*SI"»!F N«0 THEN l +NUMDIGI TS(-N ) ELSE* 

IF N>9 THEN l+NUMDI Gl TS( N DIV 10) ELSE 1 » % 
X 

PROCEDURE RUNERR(ERRNUM,L1NENUM)| X*** rUn TIME ERROR *** 
VALUE ERRNUM.LINENUMIX 
INTEGER eRRNUM»LINeNUM|| 
BEGINS 

WRITE(OUTPUT,ERRMESStERRNUMj)II 

WR I TE( OUTPUT »TeRMMESS,NUMDIGITS(LiNeNUM)»lINENUM)JS5 

go to terminate;* 
end of runerrix 

X 

INTEGER PROCEDURE CHECK( VAL»LIM1 iLIM2»LINENUM)IX 
VALUE VAltLlMl»LlM2tLINENUMfX 
INTEGER VAL»LIMl#LIM2tLlNENUM|X 
BEGINS 

IF VAL<LIM1 OR VAL>LIM2 THENX 

BEGIN WRlTE{OUTPUTtCHECKERRtNUMDIGlTS(VAL)»VAL#NUMDIGlTS(LlMl)»X 
LIM1.NUMDIGITS(LIM2),LIM2JJ2 
RUNERR(4.HNENUM)IX 

ENDIX 

ChECKUVALJX 
END OF CHECKJX 
X 

ALPHA PROCEDURE CURDATIX 
CURDATi«" w *TlMC(5)t4H35l363lX 
X 

ALPHA PROCEDURE WEEKDAII 
WEEKDA*«TlME(6)4" «[41«5I6)IX 
X 

INTEGE R PROCEDURE TRUNC(X,LINENUM) I % 
VALUE X,LINENUMIX 
REAL XI INTEGER LINENUMIX 
BEGINX 

IF ABS(X)>MAXINT THEN RUNERRC4 . LI NENUM) I % 

TRUNCMIF X«0 THEN -ENTIER(-X) ELSE ENTiERCXm 
END OF TRUNClX 
X 

INTEGER PROCEDURE ROUND( X » L INENUM) I X 
VALUE X.LINENUMJX 
REAL XI INTEGER LINENUMjX 
BEGINS 

IF ABS(X)>MAXINT THEN RUNERR(4# LI NENUM) I % 

ROUNDUXJX 
END OF ROUNDIX 
X 

BOOLEAN PROCEDURE ODD(N)IX 
VALUE Nl INTEGER NIX 
ODDI»N MOD 2 » 11 X 
X 

real procedure sqr(x.linenum) |x 

value x, linenumix 

Real xi integer linenumix 

BEGINS 

IF ABS(X>>2,0?69187»34 THEN RUNERR( 4 »LI NENUft ) I X 

SQRlsXxXIX 
END OF SQRIS 



00054 
00055 
00056 
00057 
00056 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00066 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00106 
00109 
00110 
00111 



BOOLEAN PROCEDURE INCH(A»B>> **** jS THE SET "A" INCLUDED 00112 

VALUE A,BJ REAL AiBJ %*** jN THE SET "B", 00113 

!NCLll«REAL(BOOLEAN(A) AND NOT BOOLEANCB ) )*0? % 00114 

X 00115 

BOOLEAN PROCEDURE INCL2rAiB)l X*** jS THE SET "B" INCLUDED 00116 

VALUE A,BI REAfe A.BJ %** + jN THE SET "A", 00117 

!NCL2I«REAL(B00LEAN(B) AND NOT B00LEAN( A ) )*Ql% OOllB 

X 00H9 

BOOLEAN PROCEDURE INTST(A.B)! %*** fS THE VALUE "A" AN ELEMENT 00120 

VALUE A#BJ REAL A.BJ %*** \H THE SET "B", 00121 

INTSTisIF A<0 OR A>38 ThEN FALSE ELSE 0«Bt0t38-Ain*ll* 00122 

* 00123 
PROCEDURE NEW(P,SIZE)JS 00124 
VALUE SlZEl REAL P* INTEGER SJZEIX 00125 
BEGINX 00126 

Pl.IF MEMPNf*SlZE>MEMSlZE THEN ELSE MEMpNfIX 00127 

MeMPNTI.MEMPNT+SIZEIX 00128 

END Or NEWJX 00129 

X 00130 

PROCEDURE DISP0SE(P»SIZE)U 00131 

VALUE SlZEl REAL P» INTEGER SlZElZ 00132 

BEGINX 00133 

END OF DISPOSE** 00134 

* 00135 
PROCEDURE PACK(A,LLIM»ULIM»I»Z»LINENUM)IX 00136 
VALUE LL1M»ULIM,I,L1NENUMIX 00137 
ARRAY AC*3> ALPHA lt% 00138 
INTEGER LLIM.ULlM.IfLINENUMIX 00139 
BEGINS 00140 

ZlsOlX 00141 

FOR Tl 1*0 STEP 1 UNTIL 6 DOX 00142 

Zl»ACCHECK(I+Tl,LLlM»ULlM»LlNENUM)J & Z t 4 i I 35 I 363 ) X 00143 

END;* 00144 

* 00145 
PROCEDURE UnPACKCZ#A»LLIM»ULIM» I»LINENUM)il 00146 
VALUE ZiLLIMtULlMtlfLlNENUMJX 00147 
ARRAY A£*]» ALPHA ZIX 00148 
INTEGFR LLIM»ULIM»I»LINeNUMJI 00149 
FOR Tl I wO STEP 1 UNTIL 6 DOX 00150 
ACCHEcKCI*Tl»LLlM»ULlM,LlNENUM)]»» & Z (5l4i-6xTl»6]|X 00151 

X 00152 

REAL PROCEDURE eONCAT(A,B,AS,BS,N»LINENUM) J X 00153 

VALUE A#B#AS»BS,N#LINENUMJX 00154 

REAL A#BI INTEGER AStBS,N,LINENUMI X 00155 

BEGINX 00156 

IF AS<1 OR BS<1 OR N<0 OR AS+N>48 OR BS+N>4« THENX 00157 

BEGINX 00158 

WRiTE(OUTPUT»cONCaTeRR»NUMDIGITS(aS),AS,NUMDI6ITS(BS)#X 00159 

BSttilUHDIGlTS(N)fN)lX 00160 

RUNERR(0,LINENUM)|X 00161 

ENDiX 00162 

CONCATI-A & B C47-ASt47-BS!N]*| 00163 

END Of CONCATIX 00164 

* 00165 
BOOLEAN PROCEDURE Bl T( N, LI NENUM) I X*** SET BIT NO "N" IN A WORD. 00166 
VALUE NiLINENUMI INTEGER NiLINENUMJX 00167 
BlTlsBOOLEANCO & 1 t 38-CHECKCN* Ot 38* L I NENUM) I » U ) I % 00168 



X 00169 

BOOLEAN PROCEDURE B I TS(N1 ,N2»L INENUM) I %*** SET BITS "Nl" , , «N2" , 00170 

VALUE Nl,N2,LlNENUMJX 00171 

INTEGER N1.N2.LINENUMJX 00172 

BlTSl«BOOLEAN(0 & 3*7777777777777" [ 38-CHEC* (N 1 # 0, 38»L JNeNUM ) I 38f X 00173 

CHECK(N2,0t38.LlNENUM)-NWl]m 00174 

* 00175 
PROCEDURE RLINE(F»BUF»!NF0)IX 00176 
FILE Fl ARRAY BUFtOjJ INTEGER INF01X 00177 
BEGIN* 00178 

LABEL ENDFILEJX 00179 

INFO.EOLNIsQj iNFO.BUFPNTInll* 00180 

READ(F.999,BUFt*3) EENDFILEJJX 00181 

Replace charpnt by pointercbufc*]) for i i x 00182 

inf0,lastchuchar[0]jx 00183 

if false then* 00184 

begin endfilei info,endfound»«ux 00185 

ENDJX 00186 

END OF RLINEU 00187 

X 00188 

REAL PROCEDURE PREAD(F# BUF. INFO.MODEiL INENUM ) I X 00189 

VALUE MODE#LlNENUMIX 00190 

FILE n ARRAY 8UF[0]JX 00191 

INTEGER INFO.MOBEtLINENUMlX 00192 

BEGINf 00193 

DEFINE GETCHAR*X 00194 

BFGINX 00195 

IF BOOLEAN(INFO.EOLN) THEN* 00196 

BEGIN* 00197 

RLINE(F»BUF»INF0)I CH ««I NFO, LASTCHl X 00198 

END ELSE* 00199 

IF INFO,BUFPNT»iNFO,BUFSlZE ThEnX 00200 

BEGIN CMI*» "J INF0.E0LNI»1 END ELSE* 00201 

BEGIN* 00202 

REPLACE CHARPNT BY POI NTER C BUF [*])+ I NFO , BUFPNT FOR lit 00203 

CHI»CHARC03j I NFOi BUFPNT I *I NFO t BUFpNT+U X 00204 

END END OF GETCHAR#|* 00205 

X 00206 

DEFINE READERRCERRNUM)** 00207 

BFGINX 00206 

WRITE(0UTPUT#999»BUF[*]);X 00209 

WRlTEf OUTPUT #ERRMARK, I NFO, BUFPNT-DJX 00210 

RUNERR(ERRNUM»LlNENUM)IX 00211 

END OF READ|RR#IX 00212 

* 00213 

Real resi alpha chjx 00214 

boolean negitive.negexpi integer power.explx 00215 

label overflow, return!* 00216 

X 00217 

if booleancinfo.eof) then runerr( 1 1 li nenum) i x 00216 

if boqleanunfo.endfound) Then* 00219 

begin* 00220 

inf0,e0f»«1* preadi«01* 00221 

go to returnix 00222 

ENDIX 00223 

IF 0ODE«1 THEN X*** MODE • CHAR *** 00224 

BEGINX 00225 

PREADl.lNFOtLASTCHl GETCHARI INFO,lASTCH«»Ch;X 00226 



X*** MODE • REAL/INTEGER 
DO GETCHARl* 



END ELSE* 

begin %*** mode * real/integer *** 

ch»«info,lastchjx 

while ch»*» " and not booleanc i nfo f endfound ) 
if b00uean(inf0, endfound) then* 

BEGINS 

INFO, EOFl*i J PREADt*OI* 

GO TO RETURN** 
ENDIX 

IF CH*" + * OR CH«"»" THEN BEGjn NEGAT I VE | «CH«"- M J GETChAR EnOJX 
It CH>9 THEN REAOERRO)!* 
RESl»CHI GETCHARlX 

WHILE CHS9 DO BEGIN RES l«lO*RES*CH* GETcHAR ENDIX 
IF MODE«3 THEN S MODE ■ REAL, 
BEGINS 

if ch»"," then* 

BEGINS 

GETCHARi IF CH>9 THEN READERRC3)JS 

WHILE CHS9 DO BEGIN RESl*iOxRES+CHJpOWER»*POWiR-lJGETCHAR END) 
ENDIS 

IF CH«"E" THENS 
BEGINS 

getcharis 

if ch»"+" or ch»"-" then begin negexp|«ch*"-"i getchar end)* 

if ch>9 then readerr(3)jx 

while chs9 do begin exp i *1 oxexp+chi grtchar endis 

if negexp then expi«-expu 

ENOIS 

POWERt*OOWER+EXplS 

REALOVERFLOWI«OVERFLOWJ RESI»ReSxiO*pQWERIS 
IF FALSE THEN OVERFLOWI READERRC4)** 
REALOVERFLOWl»OlS 
END ELSE IF RES>MAXlNT THEN READERR(4)IS 
PREADt«IF NEGATIVE THEN -RES ELSE RESIS 
INFO.LASTQHteCHSS 
ENDIS 
RETURNIS 
END Of PREADIX 
S 

s 

PROCEDURE WLINECF»BUF#INF0)I 

FILE F* ARRAY B0F[O]I INTEGER INFOI* 

BEGINS 

alpha ccis 

IF BOOLEAN(lNFO,OUTp) THENX 
BEGINS 

REPLACE CHARPNT BY POI NTER( BUF I * 1 ) FOR 1* CC I «CHAR[ J I % 

REPLACE PQlNTERCBUFC*]) BY » "IS 

IF CC»" " THEN WRiTE(0UTPUT»999,BUFC*J) ELSEX 

IF CC*"+" THEN WRiTECQUTPUT[N01#999,BUFt*J) ELSEX 

BEGINS 

if cc»"0" then writecoutput) elses 

IF CC»"«" THEN WRITE<0UTPUT[DBL3) ELSEX 
IF CC«"t" THEN WRITE(OUTPUTCPAGEI) ELSES 
WRITE(OUTpUT#lLLEGALCCiCC)|X 
WrJTEC OUTPUT. 999 »BUF[*J)IX 

ENDlX 



S*** pRjNT A LINE,*** 



00227 
00226 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00268 
00269 
00270 
00271 

00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
00282 
00283 



end else wr!tecf»999*bufc*j)u 

Replace pointercbufi:*]) by " «• for info.bufsizejx 

INFO.BUFPNTlsOJX 
END Op XLJNEU 
X 
X 

PROCEDURE CHFILtFm 
FILE Ft% 
BEGIN! 

ARRAY A[0l6]!t 

SEARCH(FiA[*]))X 

if acojpm then* 
begins 

F.AREAS 1* 20t% 
F.AREASiZE l» 30011 
ENDJX 

OF chfilix 



END 

X 

X 

PROCEDURE 



WALFA?F»BUF»INF0»Al#A2tA3»A4»A5#A6»A?#A8#A9#Al0,All.A12»ALENGt 

LINENUM)U 
l2tALtNG»LlNENUMIX 
iLInENUMIX 
12IX 



All'A; 
ALENGi 
All»Ai 



MINCA 
N GO 



VALUE Al»A2»A3»l4»A5»A6»A7»A8»A9»Al0» 
FILE Fl ARRAY |UF[OJl INTEGER INFO. 
ALPHA Al#A2»A3»A4»A5»A6,A7»A8»A9»Al0» 
BEGINX 

ALPHA A| POINTER PNT|X 

Labcl txttjx 

IF NOT BOOLEAN(INFO.EOF) THEN RUNe«R(2 

IF info,bufpnt+aleng*info,bufsize Then 

pntl»polnter(buf[*])+info,bufpntix 

info,bufpnti«info,bufpnt+alengix 

FoR AI*Al#A2.A3»A4#A5.A6f A7.A8.A9 

BEGINX 

TEXT[OJl»A|X 
REPLACE PNTIPNT 
ALENGOALENG-71 

ENDJX 
EXIT IX 

END Of WALFAJX 
X 
X 

PROCEDURE P WR I TEC Ft BUF»lNFOtE#EMODEfM 
VALUE E.EMODE.M.N.LINENUMIX 
FILE Fl ARRAY BUF[0]J REAL EIX 
INTEGER INF0»EM6DE»M»N#LINENUMIX 
BEGINX 

INTEGER NCH»RS.NEXP,II POINTER CPNTi 

OEFINE PUTCHAR(C)« * 

begin charc#3 i»c j nchars««nchars+ux 
Replace cpnticpnt by charpnt for 

END#IX 



tLlNENUMJJX 
WLlNECF»BUF»lNFQm 



» AlOt A1J»A12' DoX 



BY TEXTPNT FOR 
IF ALENGSO THE 



LENG»7)JX 
TO'EXfTII 



»N,L1NENUM)IX 



PUTS A CHARACTER INTO TEMPTEXT 
1»X 



X 



procedure p«tint(n)| x 

value ni integer n> x 

if ns9 then putchar(n) elsex 

BEGIN PUTlNf(N DIV iO)J PUTCHAR(ENT I ER(N MOD 10)) ENDlX 



PUTS AN INTEGER INTO TEMPTEXT 
WITH ZERO SUPPRESSION. 



00284 
00285 
00286 
00287 
00288 
00289 
00290 
00291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
0030J 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
003H 
00315 
00316 
00317 
00318 
00319 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00328 
00329 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00336 
00339 
00340 



B 



CPNTI«POINTER(TEMPTeXTI*])I* 00341 

if not b00l|an( into, eot) then run£«r( 2» i inenum ) |x 00342 

if emode-1 fhen x*** mode « integer *** 00343 

begins 00344 

if e<o then begin putchaRc"-*)j ei*-e endix 00345 

putint(e)u 00346 

end elsex 00347 

if im0de«2 *hen x*** mode • real *** 00348 

BEGINX 00349 

PUTCHAR(" "JfX 00350 

IF E<0 THIN BEGIN PUUHAR( "-" > I E!»-E ENDjX 00351 

IF E>MAXJNT OR N<0 THEN X FLOAT ING-PO I NT , 00352 

BtGINX 00353 

IF E>0 THENX 00354 

BEGINX 00355 

while e<i do begin nexp»«nexp-ii ei«i&xe endix 00356 

WHILE E*l0 00 BEGIN NEXPl *NEXP+1 J El»E/lO ENDIX 00357 

ENOIX 00358 

H»MAX(m-8#1)IX 00359 

El*E+0,9xl0*(-I)IX 00360 

IF E GEfi 10 THEN BEGIN NEXp t »NEXP+i I E»"E/10 ENDIX 00361 

PUTCHAR(ENTIER(E))I EI*E-ENTIER(E)I PUTCHARC". ")JX 00362 

DO BEGINX 00363 

E«»10*EJ PUTCHAR(ENTIER(E))*X 00364 

EI»E'ENTIER(E)I 1!»I-UX 00365 

END UNTIL I<0IX 00366 

PUTCHAR(«E")JX 00367 

IF NEXPSO THEN BEGIN PUTCHARC "•") I NExP«»-NEXP ENDX 00368 

ELSE PUTCHAR("+")IX 00369 

PUTCHARfNEXp 01 V lO)J PUTCHARC ENT I ER{ NEXP MOD 10))JX 00370 

END ELSEX 00371 

BEGIN X FIXED-POINT* 00372 

EI«E*0,»xlO*(-N)IX 00373 

PUTINTCENTIER(E))! PUTCHARC", ") J E I »E«ENTlERC E) I X 00374 

if N>iso then runeRRc6>linenum)»x 00375 

FOR H*i STEP 1 UNTIL N DOX 00376 

BEGIN El»10xEJ PUTCHARCENTIERCE > > I X 00377 

E«»E-ENTifR(E)*X 00378 

end end end elsex 00379 

if emooe«3 Then x*** mode ■ boolean **♦ 00380 

BEGINX 0038} 

if e<0,5 ihen replace cpnt by "false" else replace cpnt by "true"! 00382 

ncharsi*!? e<0,5 then 5 else 4ix 00383 

end elSex 00384 

IF tM00E«5 IHEN X*** mOQE ■> ALFA *** 00385 

BEGINX 00386 

TEXT[0]l*£J NCHARSl«MIN(Mi7)>X 00387 

replace cpnticpnt by textpnt for 71% 00388 

end elsex 00389 

begin x*** mode ■ char *** 00390 

putchar(e)jx 00391 

ENDIX 00392 

IF NCHARS>M THEN MUNCHARSIX 00393 

IF INFO.BUFfiNT+MMNFO.BUFSlZE THEN WLINECF#BUF» INFO) IS 00394 

IF MMNFOiBfflFSlZE ThEN RUnERRC 6»L!NENUm) I X 00395 

REPLACE POlNTERCBUFC*J)+CINFO,BUFPNUM-NCHAftS> BYX 00396 

POINTER(TEMpTEXT[*J) FOR NCHARSlX 00397 



INF0,BUFPNT|«INFQ,BUFPNT+MJX 00398 

END Or PWRlTEJX 00399 

X 00400 

X 00401 

PROCEDURE PUT(F#BUF#INF0»LINENUM)H 00402 

VALUE LINENUMJX 00403 

FILE F* ARRAY BUF[*]JX 00404 

INTEGER INFO. LINENUMJX 00405 

BEGINX 00406 

IF INF0,BUFSIZE*0 ThENX 00407 

BEGINX 00408 

IF NOT BOQLEANf INFO, EOF) THEN RUNERRC 2 t Ll NENUM) J X 00409 

WRlTE(F»t023»BUFC*J)*X 00410 

END ELSE PWRITe(F»BUF»INF0»INF0,LaSTCH»4»i#i#LINENUM)»X 00411 

END Of PUTJX 00412 

X 00413 

X 00414 

PROCEDURE GET(F.BUFt INFO»LINENUM)IX 00415 

VALUE LINENUMJX 00416 

FILE FJ ARRAY BUFf*]IX 00417 

INTEGER INFOiLINENUMJX 00418 

BEGINX 00419 

ALPHA X| LABEL ENDFILEJX 00420 

IF INF0,BUFSIZE»0 ThENX 00421 

BEGINX 00422 

IF BOOLEANMNFO.EOF) THEN RUNERRC 1 » Li NENUM) J X 00423 

READ(F»lO*3.BUFC*J) tENDFlLE)JX 00424 

IF FALSE ?HEN ENDFILEI I NFO.EOF I «1 J X 00425 

EnD ELSE XUPREAD(F,BUF.INF0»1»LINEnUM)JX 00426 

END OF GETIX 00427 

X 00428 

X 00429 

PROCEDURE PPAGE(F»BUFt InFO»LINENUM)*X 00430 

VALUE LINENUMJX 00431 

FILE Ft ARRAY 8UF[*JJX 00432 

INTEGER INFO#LII*ENUMJX 00433 

BEGINX 00434 

IF NOT BOOLIANCINFO.EOF) THEN RUNeRRC 2* L INENUM) J % 00435 

WRITE(F[PAGE3)»X 00436 

END Of PPAGEJX 00437 

X 00436 

X 00439 

PROCEDURE RESET(F»BUF.lNFO»LINENUM)IX 00440 

VALUE LINENUMJX 00441 

FILE Ft ARRAY BUF[*]JX 00442 

INTEGER INFO.LINENUMJX 00443 

BEGINX 00444 

IF BOOLEANtlNFO.INP) OR BOOLEANC I NFO, QUTP) THEN RUNERRC 5 .LI NENUM) J X 00445 

REWlND(F)* iNfO,EOfI«OJ INFO # EOLNl«OJ iNpO f BUFPNT UOJ X 00446 

INFO,ENDFOUNDI«»OJX 00447 

IF INFO, BUFSlZEwO ThEN GET(F#BUF#INFQ.LINENUM)X 00448 

ELSE RLINECF.BUF»INF0)JX 00449 

END OF RE5ETJX 00450 

X 00451 

PROCEDURE REWRITECF»BUF,INF0»LINENUM)|X 00452 

VALUE LINENUMJX 00453 

FILE FJ ARRAY BUFC*]JX 00454 

INTEGER INF0#LINENUMJX 00455 



BEGJNX 00456 
IF BOOLEAN(INFO.INP) OR BOOLEAN ( I NFO, OUTP ) THEN RUNERR C5#LI NENUM) I % 00457 

REWIND(F)1 INFO,eOF»«U INF0,BUFPNT»»OI INFO,ENDFOUNDI*0|X 00458 

IF INF0,BUFSIZE>0 ThENX 00459 

Replace PoiNTER(BUFt*:p by « » for info.bufsizeix 00460 

END OF REWRjTEU 00461 

* 00462 

* 00463 
PROCEDURE iNHUNPUTDECLm 00464 
VALUE INPUTDECLJX 00465 
BOOLEAN INPUTDECLJX 00466 
BEGINX 00467 

MpMPNTIMIX 00468 

CHARPNTlwPOlNTER(CHARr*3)+7» TEXTPNTUP0iNTERCTEXTt*])+l)X 00469 

Tl»0l T,BUFSIZE»w80J T , BUFPNT » *8QJ T,EOLNI«i; T,INPl«llX 00470 

100803J.TI iF INPUTDECL THEN RL INE( INPUT, V*0603t J00603) » X 00471 

Ti»0l T,BUfSlZEI»l3?l T,E0LN«*H T,oUTpl»U T,EQFI*1IX 00472 

100*42l*m 00473 

REPLACE P0INTER(V00742C*3) BY » " FOR 17 WOIJDSJX 00474 

END OF INITjX 00475 



LABEL 000000060LINE 00l78l09?EXECUTE 0/R /R 



7EXECUTE PASCAL/PASCAL 



PACKET 223 

INPUT 205 

TIME 1355 

DATE 78109 



CARDS FROM CRA 
WEDNESDAY, 04/19/78 



*** BURROUGHS B5700 DCMCP MARK XVl,0,l7Q AND INTRINSICS MARK XVI. 0,132 *** 
#N0 MESSAGES TODAY 



13155 
13155 
13155 
13156 
13156 
13156 
13156 
13157 
1 3 1 57 
13157 
13158 
13156 
13158 
13158 
13158 
13(58 
13158 
13156 
13158 
13159 
13159 
13159 
13»59 
13159 
13159 
13159 
13159 
14100 
14100 
14|00 
14101 
14101 
14101 
14101 
H»Oi 
14101 
14101 
14101 
14101 
14101 
|4|0l 



55 7EXECUTE PASCAL/PASCAL 

55 ?DATA0?9 SOURCE 

56 5»PASCAL/PASCAL»0l SCHEDULED 1355» NEEDS 27264 
53 1XS 

53 5»PASCAL/PASCAL« 1 BoJ 1356 04/19/78 

56 DKA IN SER PASCRUN D J SK »PASC AL/PASC AL* 1 

56 DKA OUT SER PASC325 UOOOOOO I PASCAL/PASCAL* 1 

03 DKA REL PASCRUN D I SK i PASCAL/PASCAL* 1 
10 PBD0224 OUT Oil L JNES » PASCAL/PASCAL" 1 
12 CDB IN SOURCE'PASCAL/PaSCAL* 1 

05 ^OPERATOR KEYED I N| ItL 

05 TIME UlMiTS FOR PASCAL/PASCAL* 1 AREI PRT*N0 LlMiTl jOT*NO LlMj T 

20 +OPERATOR KEYED INl Iclj0l45 

21 INV KBD 1CT30I45 

31 ^OPERATOR KEYED INl IcT 30145 

31 INV KBD ICT 30145 

40 ^OPERATOR KEYED I N | lcT30,45 

40 PRT AND IOT ESTIMATES CHANGED FOR PASCAL/PASCAL* 

40 TIME LIMITS FOR PASCAL/PASCAL* 1 AREI PRT* 0»30l 

08 ♦OPERATOR KEYED JN| lcT200,200 

09 prt and iot estimates changed for pascal/pascal* 1 

09 time limits for pascai/pascal* i arei prt* 31201 ioti 

26 ^operator keyed inl 1ti 

27 time for pascal'pascalw 1 i s i cp* 15, 10* 56 in 2134 

58 +operator keyed inl kt3oo 

59 prt estimate changed for pascal/pascal* 1 
59 time limits for pascal/pascal" 1 arei prt* 51001 iot* 3120, 

15 +operator keyeo inl 1ct,500 

16 iot estimate changed for pascal/pascal* 1 

17 time limits for pasc al./pascal* 1 arei prt* 5|00l iot* 8»20 f 
03 dka lok pasc325 uooooo&lpasc al/pascal* 1 

04 CC USER»UOOOOOO» 
04 cOMPjLE INSANE/UOOOOOO XALgOL! 
04 XALGOL FIUE C ARD*PaSc325/U008000 SERIAL* 
04 END 

06 5»XALG0L/lNSANE»0l SCHEDULED 1401, NEEDS 14976 

07 PBD0224 REL Oil LINES 21 31 PASCAL/PASCAL* 1 
07 CDB REL SOURCE IPASCAl'PASCAL* 1 

07 7DATA029 INPUT 

08 PASCAL/PASCAL" 1 EOJ 1401 

09 FOR PASCAL/PASCAL* 1| PROCESS* 40 SECS* 10* 104 SECS, OLAYs 47 



1 

IOT* 0145, 



3120, 



HiOi 
14101 

14101 
14101 
14101 
14101 
14*01 
14101 
14101 
14101 
14102 
14J02 
14102 
14102 
14102 
14102 
14102 
14102 
14102 
14102 

14J03 
14103 
14104 
14(04 
14105 
14105 
14106 
14106 
14106 
14106 
|4|06 
14106 
14106 
14106 
|4»06 
14106 
14106 
14106 



109 
ill 
114 
136 
136 
158 
!58 
156 
158 
158 
159 
159 
100 
101 
101 
120 
120 
134 
134 
134 
150 
»51 
133 
133 
149 
149 
152 
152 
117 

ur 

118 
I 18 
142 
142 
143 
143 
143 
143 
|44 
144 



?END 



5iXAlG0L/lNSANE» 1 BO^ 1401 04/17/78 

DM IN SER PASC325 UOOOOOOl XALGOL/ INSANE* 1 

DKA OUT ROM INSANE UOOOOOO i XAU60L/ I NSANE* 1 
♦OPERATOR KEYED I N I \jl 

TIME LIMITS FOR XALGOU I NSANE* 1 ARE! PRT*NO LI Ml T J IOTwNO LIMIT, 
♦OPERATOR KEYED INI lcT800,300 

PRT AND IOT ESTIMATES CHANGED FOR X ALGOL/ INSANE* 1 

TIME LIMITS FOR XALGOt/ I NSANE* 1 AREI PRT* 51001 IOT* 5100, 

DKA LOK INSANE UOOOOOO t XALGOL/ J NSANE* 1 

DKA REL PASC325 UOOOoOi I XALGOL/ INSANE* 1 

XALGOL/INSANE" 1 EOJ 1401 

FOR XALGOL/INSANE* 1| PROCESS* 38 SECSt 10* 18 SECS* OLAY* 1 

5UNSANE/U000000* 1 B 0J 1401 04/19/78 

CDB IN INPUTl INSANE/U°80°00« 1 

PBD0224 OUT 021 OUTPUT I iNSANE/UOOOOOO* 1 

♦ OPERATOR KEYED I N I HL 

TIME LIMITS FOR INSANE/UOOOOOO* 1 ARE! PRT»NO LIMIT! I0T*N0 LIMIT, 

♦ OPERATOR KEYED IN I lcTg00,200 

PRT AND IOT ESTIMATES CHANGED FOR INSANE/UOOOOOO* l 

TIME LIMITS FOR INSANE/UOOOOOO* t ARE» PRT* 31201 IOT* 3120, 

♦ OPERATOR KEYED IN I IT I 

TIME FOR INSANE/UOOOOOO* 1 I St CP* 44, 10* 14 IN 51 

♦ OPERATOR KEYED I N f IT I 
TIME FOR INSANE/UOOOOOC* 

♦OPERATOR KEYED IN! 1 j I 
TIME FOR iNSANE/UOOOoO&s 

♦operator keyed i nl 1ti 

time for insane/uoooooo* 1 isi cp* 3l22, 10* 44 jn 3|5? 
♦operator keyed ini iji 

time for insane/uoooooo* i isi cp* 3145, i0« 49 in 4118 
♦operator keyed i n i 1tl 

time limits for insane/uoooooo* i aRei prt* 31201 iot» 3120, 

♦OPERATOR KEYED INl IqS 
-OPRTR DS-ED INSAN£/U00e000* it S> 
CDB REL INPUT! INSANE/UOOOOOO* I 



1 ISI CP* 1123. 10* 21 JN 1133 
1 ISI CP* 2t32i IQ* 35 IN 2149 



10» A* 21410 



PBD0224 REL 021 OuTPuT 7944 1 1 NSANE/UOOOOOO* 1 
iNSANE/UOOOOOO* 1 DS-ED H06 

for insane/uoooooo* i» process* 247 secs, 10* 62 secs, 0lay« t 
pkt#0223 removed 



